<em>Алгоритм деления отрезка AB пополам:</em>
<span>1) поставить ножку циркуля в точку А;</span>
<span>2) установить раствор циркуля равным длине отрезка АВ;</span>
<span>3) провести окружность;</span>
<span>4) поставить ножку циркуля в точку В;</span>
<span>5) провести окружность;</span>
<span>6) через точки пересечения окружностей провести прямую;</span>
<span>7) отметить точку пересечения этой прямой с отрезком АВ.</span>
<span>
</span>
<span>Было у нас такое на зачете :D</span>
1. var
i:integer;
begin
for i:=1 to 10 do
begin
writeln (i, sqr(i));
readln;
end.
2. var
i:integer;
begin
for i:=2 to 20 do
begin
if sqr(i) div 2 = 0 then
write (i, ' = 'sqr(i) );
end;
readln;
end.
Program qq;
var i, n, c:real;
begin
readln(i);
c:=i;
while n<>100 do
begin
n:=n+1;
write(c, ' ');
c:=c*i;
end;
writeln();
<span>end.</span>
Var
best, m, s,i: integer;
begin
best := 10000000;
for i:= 1 to 3 do begin
write('min sec = ');
readln(m, s);
if best > m * 60 + s then best := m * 60 + s;
end;
writeln('Лучший = ', best div 60, ' min ', best mod 60, ' sec');
end.