Writeln('vvedite dva chisla',a,b);
readln(a,b);
if a<b then c:=1+b else a>b writeln(a,b);
writln(c);
end.
Допустим, чтобы передать команду "огонь" нужна 1 секунда
Тогда при получении данной команды стрелок должен передать её (если есть кому) и подождать количество секунд, равное количеству стрелков, не получивших данную команду
27 13 6 3 1 ДЕЛИМ 27 на 2 , в частном берем без целое число (=13)
1 1 0 1 1 <=== 27(10) =11011(2) пишем в обратном порядке
Делим 13 на 2, в частном берем целое без округления 6
Делим 6 на 2 (=3) и т.д.
11 5 2 1
1 1 0 1 11(10) = 1011(2)
2001 1000 500 250 125 64 32 16 8 4 2 1
1 0 0 0 1 0 0 0 0 0 0 1
2001(10) =100000010001(2)
Var
x:Real;
begin
Readln(x);
Writeln('x = ', x, ' y = ', (10-5*x)/(sqrt(x*x - 6*x + 10)));
end.
![91A_{16} = 9\cdot16^2 + 1\cdot16^1 + 10\cdot16^0 = 2304 + 16 + 10 = 2330_{10}](https://tex.z-dn.net/?f=+91A_%7B16%7D+%3D+9%5Ccdot16%5E2+%2B+1%5Ccdot16%5E1+%2B+10%5Ccdot16%5E0+%3D+2304+%2B+16+%2B+10+%3D+2330_%7B10%7D+)
Остатки от деления:
- 2330 | 2 => 0
- 1165 | 2 => 1
- 582 | 2 => 0
- 291 | 2 => 1
- 145 | 2 => 1
- 72 | 2 => 0
- 36 | 2 => 0
- 18 | 2 => 0
- 9 | 2 => 1
- 4 | 2 => 0
- 2 | 2 => 0
- 1 | 2 => 1
Записываем в обратном порядке ![2330_{10} = 100100011010_{2}](https://tex.z-dn.net/?f=+2330_%7B10%7D+%3D+100100011010_%7B2%7D+)
Ответ: 100100011010
<em>Есть еще способ через таблицы, но их надо иметь</em>