Question

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

Answer 1

var a, sum:integer;

begin

writeln('Введите числа (цифра 0 - выход из программы)');

readln(a);

while(a <> 0) do begin

if (((a mod 2) = 0) and ((a mod 10) = 8)) then

 sum:= sum + a;

readln(a);

end;

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

end.