Написать программу вычисления суммы натуральных чисел от 1 до n

Turbo Pascal

Question

Митрей

25 мая, 15:30

+3

Ответы (1)

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

Гермуся · Answer 1

Var i, n, s:integer;

begin

write ('N=') ;

readln (n) ;

s:=0;

for i:=1 to n do s:=s+i;

writeln ('Сумма:', s) ;

end.

Написать программу вычисления суммы натуральных чисел от 1 до nTurbo Pascal