Question

составить программу нахождения S=1+2+3..+N
уровень 9 класса

Answer 1

var
s,n,i:integer;
begin
writeln('Введите N');
readln(n);
for i:=1 to n do
s:=s+i;
writeln('Сумма = ',s);
end.