Напишите программу ** ПАСКАЛЕ, которая вводит последовательность целых чисел,...

Question

Напишите программу на ПАСКАЛЕ, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет количество четных положительных чисел в этой последовательности

Comments

вводит, в смысле получает на ввод?

---

Там так написано

---

Да, получает на ввод

---

уже понял :D

Answer 1

Var a,col:integer;
begin
  col:=0;
  a:=0;
  while a<>0 do begin
   read(a);
   if ((a mod 2 = 0) and (a>0)) then col:=col+1;
  end;
  write(col);
end.

Comments

Спасибо. А у меня есть еще один вопрос по инфе, на который никто не ответил. Посмотри, пожалуйста, если хочешь еще баллов

---

не направите меня на него?