Дана последовательность чисел, завершающихся 0.
Найти сумму кратных чисел, кратных 4.
(Паскаль)
Дана последовательность чисел, завершающихся 0.
Найти сумму кратных чисел, кратных 4.
(Паскаль)
Найти сумму кратных чисел, кратных 4.
(Паскаль)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SumOfMultiples;
var
num, sum: integer;
begin
sum := 0;
repeat
readln(num);
if (num mod 4 = 0) then
sum := sum + num;
until num = 0;
writeln('Сумма кратных 4 чисел: ', sum);
end.