Вычислить сумму чисел, кратных n на интервале, не используя операторы цикла

@QuestDungeon · Регистрация: 22.11.2017

Author24 — интернет-сервис помощи студентам

Создать програму для вичисления суми всех натуральних чисел кратних n в границах от 2К до 3К, где К находится по формуле －
К＝(37-n)*(112-2*n).
Моє решение：

Pascal

program theyyou;
uses crt;
var n,k:Integer;
sum: Longint ;
 
begin
 
readln(n);
k:=(37-n)*(112-2*n);
for n:=(k*2) to (3*k) do
if n mod n = 0 then
sum:=sum+n;
WriteLn(sum);
end.

Можна ли сделать ету задачу не используя оператори цикла? И если да то как?

@Puporev · 07.12.2017, 17:36

Можно, как сумму арифметической прогрессии.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.12.2017, 17:36	2
	Можно, как сумму арифметической прогрессии. 0