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

Question

Информатика

Пимен

9 августа, 08:49

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

+3

Ответы (1)

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

Рогнеда · Answer 1

Program n1;

var S, i, n: integer;

begin

i:=1;

S:=0;

writeln ('введите n: ') ;

readln (n) ;

while (i<=n) do

begin

S:=S+i;

i:=i+1;

end;

writeln ('сумма: ', S) ;

end.