Первый смайлик может быть любым: грустным или весёлым. Вторым тоже может быть любым. Третьим уже остаётся лишь один вариант, так как не может быть подряд три идущих. Четвёртым, пятым могут идти любые смайлики, а шестым уже один. Так будет повторяться: седьмой, восьмой - два, девятый - один. Десятый - любой из двух. Итого выходит:
2 · 2 · 1 · 2 · 2 · 1 · 2 · 2 · 1 · 2 = 2⁷ = 128 дней он может без повторений отсылать сигналы.
Метод перевода делением стандартный. Последовательно делим на основание системы счисления, в которую переводим, выписываем остатки. Потом остатки записываем в обратном порядке.
Мы переводим числа в десятичную систему счисления из двоичной. В двоичной системе число десять записывается, как 1010 - на него и будем делить. В "столбик"
1.
101010 / 1010 = 100 и остаток 10 = 2₁₀ (показано во вложении)
100 / 1010 = 0 и остаток 100 = 4₁₀
Записываем остатки в обратном порядке: 42.
101010₂ = 42₁₀
2.
1010101101 / 1010 = 1000100 и остаток 101 = 5₁₀
1000100 / 1010 = 110 и остаток 1000 = 8₁₀
110 / 1010 = 0 и остаток 110 = 6₁₀
Записываем остатки в обратном порядке: 685.
1010101101₂ = 685₁₀
3.
10101111 / 1010 = 10001 и остаток 101 = 5₁₀
10001 / 1010 = 1 и остаток 111 = 7₁₀
1 / 1010 = 0 и остаток 1
Записываем остатки в обратном порядке: 175.
10101111₂ = 175₁₀
Var A,R:integer;
Begin
WriteLn('Выберите тип единицы измерения времени: 1 - секунда, 2 - минута, 3 - час, 4 - сутки, 0 - выход.');
ReadLn(R);
While R<>0 do
Begin
Write('Введите значение этой единицы времени: ');
ReadLn(A);
Case R of
1:WriteLn(A,' сек = ',(A/60):0:3,' мин = ',(A/3600):0:3,' ч = ',(A/86400):0:3,' сут');
2:WriteLn(A,' мин = ',(A/60):0:3,' ч = ',(A/1440):0:3,' сут = ',A*60,' сек');
3:WriteLn(A,' ч = ',(A/24):0:3,' сут = ',A*3600,' сек = ',A*60,' мин');
4:WriteLn(A,' сут = ',A*24,' ч = ',A*1440,' мин = ',A*86400,' сек');
End;
WriteLn;
WriteLn('Выберите тип единицы измерения времени: 1 - секунда, 2 - минута, 3 - час, 4 - сутки, 0 - выход.');
ReadLn(R);
End;
End.
1) Раз речь про лазер, то подразумеваются CD, DVD, Blueray диски. Хотя я бы не назвала их способными хранить реально большие обьемы
2)оптический диск? Cdroom или дисковод
3) Жесткий диск/Винчестер
4) Внешний жесткий диск
Var h,v,t,t1:real; i:integer;
begin
v:=200/60; // м/мин
t:=0;
h:=3000;writeln(' h t');
for i:=1 to (4200-3000) div 100 do
begin
t1:=100/v;
t:=t+t1;
h:=h+100;
writeln(h:4:0,' ',t:5:1);
v:=v*0.9;
end;
writeln(t:5:1,' мин');
end.
Результат:
<span> h t
3100 30.0
3200 63.3
3300 100.4
3400 141.5
3500 187.2
3600 238.1
3700 294.5
3800 357.2
3900 426.9
4000 504.4
4100 590.4
4200 686.0
686.0 мин</span>
