Задача 1 ( ответ 5050)
program Hello;
var i, sum : Integer;
begin
for i := 1 to 100 do sum := sum + i;
writeln(sum);
end.
Задача 2 (ответ 105)
for i := 1 to 14 do sum := sum + i;
Задача 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.