Question

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

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.

Answer 2

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

Answer 3

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