1)<span>110101001
</span>2)100000000
3)1101010100
4)10011011011
5)101000001001
6)1000111011000
7)11000100011000
8)101000011
9)<span>10110000</span>
Var
i:integer;
n,m:longint;
begin
Write('Введите натуральное m: '); Read(m);
n:=1;
repeat
n:=3*n; Inc(i)
until n>m;
Writeln('3^',i-1,' = ',n div 3,' не превышает ',m)
end.
<em><u>Тестовые решения:</u></em>
Введите натуральное m: 1
3^0 = 1 не превышает 1
Введите натуральное m: 3
3^1 = 3 не превышает 3
Введите натуральное m: 54652341
3^16 = 43046721 не превышает 54652341
Var N :integer;
var A: real;
begin
A:=0;
N:=0;
while (A)<5 do begin
N:=N+1;
A:=A+(1/N);
end;
WriteLn ('Всего ',N,' слагаемых');
<span>end.</span>
1) Мода, конечно, Тихий океан (47 наименований).
2) Средняя цена:
fcp = (26*26 + 33* 35+ 47*28 +15*41) / (26+33+47+15) ≈ 31 руб