Ответ:
Объяснение:
1.
var a, b: integer;
begin
read(a, b);
if a < b then
begin
a := a * 3;
b := b * a
end
else
begin
a := a * 2;
b := b * 3;
end;
print(a, b);
end.
2.
var kol, cen: integer;
begin
writeln('Введите количество и цену');
read(kol, cen);
if kol * cen < 300 then writeln('Хватит денег')
else writeln('Не хватит ', kol*cen - 300, ' рублей.')
end.
300*200=600000
600000*8/8/1024~59Кб
Обозначение примерно (~)
Должно быть так, если не напутал
65536 байт - 64 КБ
1 байт - это 1024 кб
65536 : 1024 = 64 КБ
По Хаффману:
а кодировать 0 - 1 бит
м кодировать 10 - 2 бита
б кодировать 11 - 2 бита