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

Question

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

ulusa4eva · 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....