Помогите написать программу по информатике, пожалуйста
Напишите программу, которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных чётных чисел, не превосходящих 256. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.
программа Pascal
program CountAndSum;
var
num, count, sumPositiveEven: integer;
begin
count := 0;
sumPositiveEven := 0;
writeln('Введите последовательность целых чисел, для окончания введите 0:');
readln(num);
while num <> 0 do
begin
count := count + 1;
if (num > 0) and (num mod 2 = 0) and (num <= 256) then
begin
sumPositiveEven := sumPositiveEven + num;
end;
readln(num);
end;
writeln(count);
writeln(sumPositiveEven);
end. Сначала инициализируются счетчик количества чисел count и сумма sumPositiveEven нулями.
Затем программа запрашивает ввод первого числа.
Используется цикл while num <> 0 do, который продолжается до тех пор, пока введенное число не равно 0.
Внутри цикла:
Счетчик count увеличивается на 1 при каждом введенном числе (кроме завершающего нуля).
Проверяется условие: число должно быть положительным (num > 0), чётным (num mod 2 = 0) и не превосходить 256 (num <= 256).
Если все условия выполняются, число добавляется к sumPositiveEven.
Запрашивается ввод следующего числа.
После выхода из цикла программа выводит сначала общее количество введенных чисел count.
Затем выводится рассчитанная сумма sumPositiveEven.
Ответ: (программа выведет два числа: количество и сумму)