50

разработать алгоритм определения отношения (принадлежит или не при-
надлежит) точки пространства, задаваемой координатами, шару с центром в
начале координат и радиусом 2 метра. представить блок-схему фоткой

Для того, чтобы перевести целое число из десятичной в двоичную систему счисления, необходимо разделить его на два, а затем делить на два каждое полученное частное до тех пор, пока не получится единица. Искомое двоичное число записывается как последовательность цифр, равных последнему частному (единице) и всем полученным остаткам, начиная с последнего.

Надо перевести сначала 21 в двоичную, потом 2 в двоичную и потом 2002 в двоичную

Получается вот так:
21 = 10101
2=10
2002 = 11111010010

В итоге:
10101.10.11111010010

Program DetkaKonfetka;

 uses Drawman;

begin                  

 Field(14,8);

 ToPoint (1,1);

 PenDown;                            

 OnVector(1,4);

 OnVector(4,4);

 OnVector(4,1);

 OnVector(1,1);

 PenUp;

 ToPoint (3,3);

 PenDown;                        

 OnVector(3,6);

 OnVector(6,6);

 OnVector(6,3);

  OnVector(3,3);

 PenUp;

 ToPoint (5,5);

 PenDown;                        

 OnVector(5,8);

 OnVector(8,8);

 OnVector(8,5);

 OnVector(5,5);

 PenUp;

 ToPoint (7,6);

 PenDown;                        

 OnVector(6,10);

 OnVector(10,3);

 OnVector(7,3);

 OnVector(7,6);

 PenUp;

 ToPoint (9,4);

 PenDown;                        

 OnVector(12,4);

 OnVector(12,1);

 OnVector(9,1);

 OnVector(9,4);

  PenDown;

 ToPoint(0,0);

End.