Нужно составить программу для решения следующей задачи: Вводятся 234 числа. Определить, сколько среди них четных чисел.

Question

Ипполит

8 декабря, 03:18

+1

Ответы (1)

Знаете ответ на вопрос?

Ритоха · Answer 1

Var a, s : integer;

begin

a:=0;

s:=0;

repeat

a:=a+1;

if a mod 2 = 0 then

s:=s+1;

until

a=234;

writeln ('кол-во четных чисел : ', s)

end.