Question

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел кратных 8 и оканчивающихся на 6​

Answer 1

program raf105;

var a,sum: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(a);

 if (a mod 8 = 0) and (a mod 10 = 6)

   then sum+= a;

until a = 0;

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

end.

PascalABC 3.4.2