Рэм
4 год назад
Составьте программу, по которой компьютер десять раз запросит ввод целых чисел и в результате сообщит, Как узнать сколько среди введенных чисел четных и Как узнать сколько нечетных
ОТВЕТЫ
Андрей
Oct 24, 2020
var a:array[1..10] of integer;
b,c,i:integer;
begin
writeln('Write 10 numbers:');
for i:=1 to 10 do
read(a[i]);
b:=0;
c:=0;
for i:=1 to 10 do
if a[i] mod 2=0
then b:=b+1
else c:=c+1;
writeln('Even numbers:',b); // Четных
writeln('Odd numbers:',c); // Нечетных
readln
end.
b,c,i:integer;
begin
writeln('Write 10 numbers:');
for i:=1 to 10 do
read(a[i]);
b:=0;
c:=0;
for i:=1 to 10 do
if a[i] mod 2=0
then b:=b+1
else c:=c+1;
writeln('Even numbers:',b); // Четных
writeln('Odd numbers:',c); // Нечетных
readln
end.
125
Смежные вопросы: