Найди лишнее двоичное число и зачеркни его.1) 10. 100. 110. 111. 1 010. 2) 101. 111. 1001. 110. 11. 3) 01. 10. 11 100.
156
323
Ответы на вопрос:
1) 111 - нечетное, все в ряду четные, а оно - нет. 2) 110 - четное, все в ряду нечетные, а оно - четное. 3) 100 - т.к оно в ряду одно 3 -х значное
var
a: array[1..100] of integer;
n, i: byte;
sum, p: integer;
begin
randomize;
readln(n);
sum: =0; p: =1;
for i: =1 to n do
begin
a[i]: =random(101)-50;
write(a[i]: 4);
sum: =sum+a[i];
p: =p*a[i];
end;
writeln;
writeln('сумма = ', sum: 5);
writeln('произведение = ', p: 5);
sum: =0; p: =1;
writeln('');
writeln('2. с клавиатуры');
for i: =1 to n do
begin
write('элемент ', i, ' = ');
readln(a[i]);
sum: =sum+a[i];
p: =p*a[i];
end;
writeln('сумма = ', sum: 5);
writeln('произведение = ', p: 5);
end.
подробнее - на -
Популярно: Информатика
-
DimanGame201630.12.2021 03:17
-
Sayn125.03.2022 23:08
-
mamikon77729.06.2020 10:12
-
concon123327.03.2021 04:46
-
Настенька19200219.07.2021 00:50
-
неточно124.09.2021 07:39
-
JohnSto10.03.2022 01:46
-
didisa028227.09.2020 05:30
-
Семма010606.07.2021 07:50
-
minis55121.04.2023 23:35