Используя цикл с заданным условием продолжения работы написать программу которая вычисляет сумму первых n натуральных чисел

Question

Рипсимия

16 июля, 10:43

+1

Ответы (1)

Знаете ответ на вопрос?

Танюта · Answer 1

Var i, n, s:integer;

begin

read (n) ;

s:=0;

for i:=1 to n do

begin

s:=s+i;

end;

writeln (s) ;

end.