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

Question

Информатика

Моисей

20 декабря, 01:27

Проблема та-же но осталось всего 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.