составьте программу для нахождения суммы чисел 20 до 60 кратных пяти. по турбо паскалю

Question

Анастасия Герасимова

Информатика

20 декабря, 16:42

составьте программу для нахождения суммы чисел 20 до 60 кратных пяти. по турбо паскалю

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Дарья Спиридонова · Answer 1

var n: byte; / /Заводим переменную для числа.

sum: integer; / /И для суммы.

begin / /Начало.

for n : = 20 to 60 do / /Циклом проходимся по заданному диапазону.

if n mod 5 = 0 then / /Если число кратно 5.

sum : = sum + n; / /Прибавляем его к общей сумме.

writeln ('Сумма кратных 5 чисел от 20 до 60 равна ', sum); / /Выводим сумму.

end.