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

Question

Аннета

25 ноября, 14:57

+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.