Составить программу нахождения суммы чисел S=1; S=2; S=3; S=4; S=5.

Question

Составить программу нахождения суммы чисел S=1; S=2; S=3; S=4; S=5.

Answer 1

Var i,s:integer;
begin
s:=0;
for i:=1 to 5 do s:=s+i;
writeln('s=',s);
end.

Результат:
s=15