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

Question

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

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.

Comments

или так : var a,s,n :integer;
begin
n:=234;
s:=0;
for a:=1 to n do
if a mod 2 = 0 then
s:=s+1;
writeln('кол-во четных чисел : ',s)
end.

---

или так : var a,s :integer;
begin
s:=0;
while a<=234 do<br> begin
a:=a+1
if a mod 2 = 0 then
s:=s+1;
end;
writeln('кол-во четных чисел : ',s)
end.

---

Остапа понесло :).