Числа 200 и 489 перевести в двоичную систему счисления

начинаем делить число на два

200: 2=100 ост. 0

теперь при каждом последующем делении берем частное от деления предыдущего числа и так пока не получим единицу

100: 2=50 ост. 0

50: 2=25 ост. 0

25: 2=12 ост.1

12: 2=6 ост. 0

6: 2=3 ост. 0

3: 2=1 ост. 1

1: 2=0 ост. 1

теперь остатки запишем в обратном порядке 11001000 и получим число 200 в двоичной системе.

489: 2=244 ост.1

244: 2=122 ост. 0

122: 2=61 ост. 0

61: 2=30 ост. 1

30: 2= 15 ост. 0

15: 2=7 ост. 1

7: 2=3 ост. 1

3: 2=1 ост. 1

1: 2=0 ост. 1

489 = 111101001

uses crt, graph;

var grdr, grmd,i,j,g: integer;

begin

grdr: =detect;

initgraph(grdr, grmd,’c: \bp\bgi’);

setbkcolor(lightgray);

g: =getbkcolor;

i: =20; j: =20;

begin

setcolor(red);

setfillstyle(1,red);

fillellipse(i,j,5,5);

delay(3000);

setfillstyle(1,g);

fillellipse(i,j,5,5);

i: =i+random(3);

j: =j+random(2);

end;

readln;

end.