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

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

Question

Информатика

Вила

1 февраля, 07:05

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

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

+3

Ответы (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.