Дано натуральное число N.Составить программу нахождения суммы всех чисел от 1 до...

Question

Дано натуральное число N.Составить программу нахождения суммы всех чисел от 1 до N.Паскаль.

Answer 1

Var
   N:integer;
   S:real;
Begin
Write('N = ');
ReadLn(N);
S:=N;
For N:= 1 to N-1 do
    S:=S+N;
WriteLn('S = ',S);
End.