program Digits;
procedure foo(a: integer);
begin
if a = 0 then exit
else
foo(a div 10);
Print(a mod 10)
end;
var
a: integer;
begin
a := 12345;
foo(a)
end.
А) 14> 9, значит основание с.с меньше 10, посмотрим при делении на какое число числа 9 у нас в остатке останится 1, очевидно что это 2,4,8 : 2 и 4 мы откидываем т.к и во 2 и в 4 с.с нет цифры 4, значит это 8, х=8.
б) опять же 2002>130, значит основание меньше 10, нам теперь нужен остаток 2, на ккакое число делится 128? это 2(не подходит т.к и на 130 делится), это 4(проверим, 128+0+0+2, подходит) х = 4
БГАГЕГВД
<span>Думаю,что так..открывала смотрела свою книжку))</span>
<span>Израсходовали
8 белой краски и Х – коричневой.
Iб= 2 бит</span>
<span>Pб=8/(8+8+Х) 1/p=2^</span>I<span>, (16+Х)/8=
2</span>²<span> 16+Х = 32, следовательно
Х = 16. Ответ было израсходовано 16 банок коричневой краски.</span>