Напишите программу, которая в последовательности натуральных ...
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел кратных 8 и оканчивающихся на 6
Есть ответ
12.12.2022
107
Ответ
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
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022
