Найдите сумму всех натуральных чисел ** промежутке от 1 до n.Число n вводится **...

Question

Найдите сумму всех натуральных чисел на промежутке от 1 до n.
Число n вводится на клавиатуре.Составьте на Паскале с циклом WHILE

Answer 1

Var a,i,n:integer;
begin
readln (n);
a:=0;
whili i<=n do<br>begin
a:=a+i;
end;
writeln (a);
end.
вроде так