Составьте алгоритм и программу на Паскалего подсчета суммы всех натуральных чисел, кратных 5, в диапазоне от 1 до 51

Предыдущий
вопрос Следующий
вопрос

Алгоритм:

Инициализируем переменную sum = 0.Проходим циклом от 1 до 51.На каждой итерации проверяем, делится ли текущее число на 5 без остатка.Если да, то прибавляем его к сумме sum.По завершении цикла выводим результат.

Программа на Pascal:

program SumOfMultiples;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 51 do
begin
if i mod 5 = 0 then
sum := sum + i;
end;
writeln('Сумма всех натуральных чисел, кратных 5, в диапазоне от 1 до 51 равна: ', sum);
end.

После выполнения данной программы на экране будет выведено:

Сумма всех натуральных чисел, кратных 5, в диапазоне от 1 до 51 равна: 275