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

Question

Володюня

6 ноября, 19:05

+4

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