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

Question

Информатика

Добромила

8 июля, 03:07

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

+1

Ответы (1)

Знаешь ответ?

Сережа · Answer 1

Var a, n: integer; s:longint;

begin

s:=0;

n:=0;

readln (a);

while a0 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.