Составьте программу по которой компьютер десять раз запросит ввод целых и в результате сообщит сколько среди введённых чисел чётных и сколько нечётных.

Паскаль, соответственно.

Question

Информатика

Максимильянка

22 августа, 21:07

Составьте программу по которой компьютер десять раз запросит ввод целых и в результате сообщит сколько среди введённых чисел чётных и сколько нечётных.

Паскаль, соответственно.

+4

Ответы (1)

Знаете ответ?

Ардальон · Answer 1

Var a, b, c, d:integer;

begin

for a:=1 to 10 do begin

write ('введите число=> ') ;

readln (d) ;

if (d mod 2=0) then c:=c+1 else d:=d+1;

end;

writeln ('чётных=> ', c,' нечётных=> ', d) ;

end.