Question

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

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.

Answer 2

Антагонист, ты на минуточку стал для меня протагонистом. Благодарю.

Answer 3

всегда рад помочь.