2) 135/2=67 (1)
67/2=33 (1)
33/2=16 (1)
16/2=8 (0)
8/2=4 (0)
4/2=2 (0)
2/2=1 (0)
1/2=0 (1)
135=10000111
257/2=128 (1)
128/2=64 (0)
64/2=32 (0)
32/2=16 (0)
16/2=8 (0)
8/2=4 (0)
4/2=2 (0)
2/2=1 (0)
1/2=0 (1)
257=100000001
3)2^7*1+2^6*0+2^5*1+2^4*1+2^3*1+2^2*1+2^1*1+2^0*1=128+32+16+8+4+2+1=191=10111111
2^7*0+2^6*0+2^5*1+2^4*1+2^3*1+2^2*1+2^1*1+2^0*1=32+16+8+4+2+1=63=00111111
1) загоняем синий шарик в нишу
2) прогоняем мимо него все красные направо
3) выкатываем его из ниши и вытаскиваем его из жолоба
4) иди к п 1)
Var
r:real;
Begin
Write('Введите радиус круга: ');ReadLn(r);
WriteLn('Площадь круга: ',Pi*r*r);
WriteLn('Длина окружности: ',2*Pi*r)
End.