Жители 1 планеты: 256=2^8. Один знак - 8 бит
жители 2: 128=2^7. Один знак - 7 бит
Отв: 10*8 бит = 80 бит , 10*7=70 бит. для жителей 1 планеты сообщение из 10 знаков несет больше инфы.
на сколько? 80-70=10 бит
лал
Var r, i: integer;
begin
write('r = ');
readln(r);
for i := r downto 1 do
if Tan(i) < 0 then
break;
write(i);
<span>end.</span>
Кажется понял в чем проблема.У вас не работало т,к, отсутствовали begin и end; в case .Плюс еще пару недочетов в коде
<u>Напечатано будет число 22.</u>
В переменой m накапливается сумма элементов массива Work, не меньших текущего значения m.
Первоначально m=0, поэтому Work[1]=5 попадает в m.
Work[2]=4, но 4<m, поэтому m не меняется.
Work[3]=5 и 5=m, поэтому значение m увеличивается до 10.
Элементы Work со значением, меньшим 10, m не меняют.
Work[6]=12, 12>m, поэтому значение m увеличивается до 22.
В массиве нет значений 22 и больше, поэтому m больше не меняется.