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

Nikityha2012 Nikityha2012    2   02.09.2019 19:50    1

Ответы
fgsjjhw fgsjjhw  06.10.2020 13:04
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика