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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.