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

niknem111 niknem111    2   18.05.2019 05:39    1

Ответы
Kinder281 Kinder281  11.06.2020 13:11

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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика