Program zadacha1;
var
s,n : integer;
begin
writeln('Введите N');
read(n);
s:=0;
while (n<>0) do
inc(s,n);
dec(n);
end;
writeln('Сумма = ',s);
end.
Объяснение:
Program zadacha1;
var
s,n : integer;
begin
writeln('Введите N');
read(n);
s:=0;
while (n<>0) do
begin
inc(s,n);
dec(n);
end;
writeln('Сумма = ',s);
end.
Объяснение: