ответ
опустить перо
сместиться на вектор ( 0,4)
сместиться на вектор(2,0)
поднять перо
сместиться на вектор ( -2,-2)
опустить перо
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-2)
сместиться на вектор ( -2,0)
поднять перо
сместиться на вектор ( 3,0)
опустить перо
сместиться на вектор ( 0,2)
сместиться на вектор ( 2,2)
сместиться на вектор (0,4)
сместиться на вектор ( 0,1)
сместиться на вектор ( -2,0 )
поднять перо
сместиться на вектор ( 3,-1)
опустить перо
сместиться на вектор ( 0,4 )
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-4)
сместиться на вектор ( -2,0)
поднять перо
сместиться на вектор ( 3,0)
опустить перо
сместиться на вектор ( 0,4)
сместиться на вектор(2,0)
поднять перо
сместиться на вектор ( -2,-2)
опустить перо
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-2)
сместиться на вектор ( -2,0)
поднять перо
сместиться на вектор ( 0,4)
сместиться на вектор(2,0)
поднять перо
сместиться на вектор ( -2,-2)
опустить перо
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-2)
сместиться на вектор ( -2,0)
поднять перо
сместиться на вектор (3,0)
опустить перо
сместиться на вектор ( 0,2)
сместиться на вектор ( 2,2)
сместиться на вектор (0,4)
сместиться на вектор ( 0,1)
сместиться на вектор ( -2,0 )
поднять перо
сместиться на вектор(3,-1)
опустить перо
сместиться на вектор ( 0,4)
сместиться на вектор(2,0)
поднять перо
сместиться на вектор ( -2,-2)
опустить перо
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-2)
сместиться на вектор ( -2,0)
Объяснение:
вроде бы работает
a: real;
i: byte := 30;
begin
while (i <= 60) do
begin
writeln('S = 0.5 * 4см * ', i / 10, 'см = ', 0.2 * i, 'см^2');
i += 2;
end;
end.