4 минуты-240 секунд.
Мы имеем в 3 раза меньше. 80 секунд.
Значит 8:3 и получаем 2,6
При использовании 8-символьного алфавита для кодирования одного символа требуется log(2)8 = 3 бита. Объем сообщения = 20*3 = 60 бит.
procedure Minmax(var a, b: integer);
var min, max: integer;
begin
if a < b then min := a else min := b;
if a > b then max := a else max := b;
a := min;
b := max;
end;
var a,b:integer;
S:real;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
S:=1/2*a*b;
writeln('S = ',S);
end.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
begin
Range(1,20).Aggregate(biginteger(1),(p,x) -> p*x).Println;
end.
<u>Ответ = 2432902008176640000</u>