Написать программу на pascal : с клавиатуры вводятся - вопрос №994921710 от dalakoff 23.03.2021 07:15

Question

Информатика: Написать программу на pascal : с клавиатуры вводятся 10 произвольных целых чисел. необходимо подсчитать и вывести на экран кол-во четных и кол-во нечетных среди них

dalakoff · Answer

program n1;

var x, p, n, i:integer;

begin

p:=0;

n:=0;

for i:=1 to 10 do begin

readln(x);

if x mod 2=0 then p:=p+1 else n:=n+1;

end;

writeln ('Четных чисел ', p);

writeln ('Нечетных чисел ', n);

end.