Question

C:

Составить программу и блок схему определяющую сумму первых n натуральных чисел

Answer 1

uses crt;
var i,n,sum:integer;
begin
read(n);
i:=1;
sum:=0;
while i<=n do
begin
sum:=sum+i;
i:=i+1;
end;
writeln(sum);
end.