в 3 задании какая формула суммы?
Объяснение:
program zadanie_1;
var i: integer;
begin
for i:=1 to 50 do
writeln('Информатика');
end.
program zadanie_2;
var i: integer;
begin
for i:=15 to 20 do
writeln(i,'^2 = ', sqr(i));
end.
program zadanie_4;
var i: integer;
L: real;
begin
i := 0;
L := 0;
repeat
L := L + 1.5;
i := i + 1;
until L+1.5>=20;
writeln('Получится ',i,' отрезков длиной ',L,' метров.');
end.
