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

Question

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.