Question

Проблема та-же но осталось всего 1 задание (остальные 4 сделал сам) прошу помощи вот само задание: Напишите программу которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных чётных чисел , не превосходящих 256. Программа получает на вход целые числа, количество которых неизвестно, последовательность чисел заканчивается числом 0(0 - признак окончания ввода,не входит в последовательность).

Answer 1

Var a,n: integer; s:longint;
begin
  s:=0;
  n:=0;
  readln(a);
  while a<>0 do begin
     n:=n +1;
     if (a mod 2=0) and (a>0) and (a<=256) then s:=s+a;
     readln(a);
     end;
writeln(n);
writeln(s)
end.