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

Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.

Question

Информатика

Мира

6 марта, 19:51

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

Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.

+3

Ответы (1)

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

Лидя · Answer 1

Program n1;

var a, sum, k: integer;

begin

write ('введите число: ');

readln (a);

k:=1;

sum:=0;

while a0 do

begin

if (k=1000) or (abs (a) >30000) then break;

if (a mod 2=0) and (a>0) and (a<256) then sum:=sum+a;

k:=k+1;

write ('введите число: ');

readln (a);

end;

writeln ('количество: ', k);

writeln ('сумма: ', sum);

end.