Вариант 2. числа в правой таблице результат умножения чисел в левой таблице
<span>№ 14
i=4
N=2^i=2^4=16
Ответ: 16
</span>№ 15
N=2^i
15=2^i
i=примерно 3,900бит
№ 16
без учета ковычек и точки в конце, 27Байт
1 символ=1Байт=8бит
№ 17
Возьмем число 31 т.к в 1м месяце 30-31 дней (28-29 в феврале)
2 в степени 5=32
Ответ: 5 бит
№ 18
31 дней * 12 месяцев* 24ч/c=8928≈13бит
№ 19
N=2^b
2=2^1
b=1бит
№ 20
K=15, N=256=2^8
L=k*n=15*8бит=120бит или 15 Байт
№ 21
N=2^b
Мульти - 8=2³; b=3; 200*3=600бит
Пульти - 64=2⁶; b=6; 50*6=300бит
600-300=300 бит, на столько бит сообщение племени Мульти>Пульти
№ 22
3,5КБ=28672бит
b=28672бит/14336=2бит
N=2^b
2²=4 Символа в алфавите
№ 23
1/32МБайт=32Кбайт=32*1024=32768Байт=32768*8бит=262144бит
Один символ = 262144/65536=4бит
N=2^b
b=4
N=2⁴=16
10 человек ничем не заняты,
11 занимаются только спортом
Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
function gcd(a,b:integer):integer; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
procedure RedFrac(var a,b:integer); // сокращение дроби
begin
var (sgna,sgnb):=(Sign(a),Sign(b)); // мы должны учитывать знак!
(a,b):=(Abs(a),Abs(b));
var d:=gcd(a,b);
a:=(a div d)*sgna; b:=(b div d)*sgnb
end;
begin
var (a,b):=ReadInteger2('Введите числитель и знаменатель 1-й дроби:');
var (c,d):=ReadInteger2('Введите числитель и знаменатель 2-й дроби:');
(a,b):=(a*c,b*d);
RedFrac(a,b);
Writeln('Результат умножения: ',a,' / ',b)
end.
<u>Пример</u>
Введите числитель и знаменатель 1-й дроби: 32 1024
Введите числитель и знаменатель 2-й дроби: 60 300
Результат умножения: 1 / 160
<u>В качестве бонуса - решение на базе входящей в состав PascalABC.NET библиотеки численных методов</u>
uses NumLibABC;
begin
var (a,b):=ReadInteger2('Введите числитель и знаменатель 1-й дроби:');
var (c,d):=ReadInteger2('Введите числитель и знаменатель 2-й дроби:');
Writeln('Результат умножения: ',Frc(a,b)*Frc(c,d))
end.
