И белая!ну...она ясная, круглая и белая!
Program sergo;
uses Drawman;
begin
Task('a1');
ToPoint(2,3);
PenDown;
ToPoint(3,5);
PenUp;
ToPoint(0,0);
end.
алг квадрат1
нач
. сместиться в точку(2,1)
. опустить перо
. сместиться в точку(2,4)
. сместиться в точку(5,4)
. сместиться в точку(5,1)
. сместиться в точку(2,1)
. поднять перо
. сместиться в точку(0,0)
кон использовать Чертежник
алг квадрат2
нач
. сместиться на вектор(2,1)
. опустить перо
. сместиться на вектор(0,3)
. сместиться на вектор(3,0)
. сместиться на вектор(0,-3)
. сместиться на вектор(-3,0)
. поднять перо
. сместиться на вектор(-2,-1)
кон
Var n:integer;
Begin
Write('n = ');ReadLn(n);
Write('Гвоздей осталось ',(n*0.6*0.25):0:0,' шт.');
End.