Question

Информатика 9 класс. Помогите пожалуйста. Найдите сумму всех натуральных чисел,кратных 4 и не превосходящих 300. Надо сделать в программе Паскаль, используя формулу арифметической прогрессии. Только ответ записать так как это будет в программе Паскаль.

Answer 1

===== PascalABC.NET =====

begin

 var a1 := 4; // первое натуральное, кратное 4

 var an := 300; // последнее из интервала, кратное 4

 var d := 4; // разность прогрессии

 var n := (an - a1) div d + 1; // количество чисел

 var s := (a1 + an) * n div 2; // сумма

 Print(s)

end.