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

Question

Информатика

Митяй

28 декабря, 08:20

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

+4

Ответы (2)

Знаете ответ на вопрос?

Митюха · Answer 1

Var sum, k:integer;

begin

sum:=0;

for k:=1 to 25 do sum:=sum+k;

writeln (sum) ;

end.

Анастасея · 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.