Question

Информатика.Оставить программы задач.

Answer 1

Задача 1 ( ответ 5050)

program Hello;

var i, sum : Integer;

begin

for i := 1 to 100 do sum := sum + i;

writeln(sum);

end.

Задача 2 (ответ 105)

program Hello;

var i, sum : Integer;

begin

for i := 1 to 14 do sum := sum + i;

writeln(sum);

end.