Найти сумму чисел от 1 до 25 паскаль

Question

Найти сумму чисел от 1 до 25 паскаль

Answer 1

Var sum,k:integer;
begin
sum:=0;
for k:=1 to 25 do sum:=sum+k;
writeln(sum);
end.

Comments

спасибо

Answer 2

Используем формулу суммы арефм прогрессии:
begin
writeln((1 + 25) div 2* 25);
end.
Или цикл:
var i, s: integer;
begin
s := 0;
for i := 1 to 25 do
inc(s, i);
writeln(s);
end.