Question

СПАСИТЕ!!
Составить программу: Необходимо найти сумму всех натуральных чисел от 1 до N, где N вводится с клавиатуры.
Паскаль​

Answer 1

Ответ:

var

n,i,sum:integer;

begin

readln(n);

sum:=0;

i:=0;

while i<n do

begin

i:=i+1;

sum:=sum+i;

end;

writeln(sum);

end.

Объяснение: