Вывести значение каждого третьего четного элемента последовательности, начиная с первого - Pascal ABC

Формулировка задачи:

Вывести значение каждого третьего четного элемента последовательности, начиная с первого (через два четных элемента). Входные данные: Во входном потоке в первой строке через пробел перечислены значения элементов целочисленной последовательности. Признаком окончания последовательности является число ноль. Сам ноль не является элементом последовательности. Значения элементов последовательности по модулю не превышают 30000. Выходные данные: В выходной поток вывести целые числа в строку через пробел. Пример входного файла: 29070 23565 -29141 29915 22568 21096 2... Пример выходного файла: 29070 21142 -6146 3264 9220 26216 -246... подскажите, пожалуйста, в чем ошибка( выводит Нарушение формата вывода)
var i,n,x,a:longint;
begin
a:=1;
i:=0;
while a<>0 do begin read(a);
i:=i+1;
if ((i-1) mod 3=0) and (a mod 2=0) and(a<>0)
 
then write(a,' ');
end;
end.

Код к задаче: «Вывести значение каждого третьего четного элемента последовательности, начиная с первого - Pascal ABC»

textual
var
  a,i:longint;
begin
  read(a);
  write(a,' ');
  i:=1;
  while a<>0 do 
    begin
      read(a);
      i:=i+1;
      if (i mod 3=0)and(not(odd(a))) 
      then write(a,' ');
    end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 3.833 из 5


СДЕЛАЙТЕ РЕПОСТ