Напишите програму: программа получает количество вводимых чисел. пользователь вводит эти числа. программа должна вывести количество четных чисел. программа должна вывести количество нечетных чисел.

Егор4002 Егор4002    2   03.10.2019 10:10    1

Ответы
89518099647 89518099647  09.10.2020 13:52

var n,a,k1,k2,i:integer;

begin

write('Введите количество вводимых чисел: ');

readln(n);

for i:=1 to n do

begin

write('Введите ',i,' числo: ');

readln(a);

if a mod 2 = 0 then k2:=k2+1

else k1:=k1+1

end;

writeln ('Количество четных чисел: ',k2);

writeln ('Количество нечетных чисел: ',k1)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика