вычислите значение функции​

1)Составьте программу, которая находит большее из двух введенных с
клавиатуры чисел a, b и выводит его на экран. Числа 7 и 9
var a,b : integer;
begin
 write('Enter a: ');
 read(a);
 write('Enter b: ');
 read(b);
 if a>b then writeln(a)
 else writeln(b);
end.
2) Составьте программу, которая находит меньшее из трёх введенных
чисел a, b, c и выводит его на экран. Числа 10, 4 и 9
var a,b,c : integer;
begin
 write('Enter a: ');
 read(a);
 write('Enter b: ');
 read(b);
 write('Enter c: ');
 read(c);
 if (a<b) and (b<c)  then writeln(a);
  if (b<c) and (c<a) then writeln(b)
  else writeln(c);
end.
3) Составьте программу определяющую, является ли введенное с
клавиатуры целое число кратным 3.
var a: integer;
begin
 write('Enter a: ');
 read(a);
 if (a mod 3) = 0 then writeln('Кратно')
 else writeln('Не кратно');
end.

Решаем задачу по формуле N=2i

N- мощность алфавита

i - вес одного символа (в битах)

Первый текст:

N=16, следовательно i=4   (16 = 24)

Второй текст:

N=256, следовательно i=8 (256=28)

Теперь нам нужно понять во сколько раз кол-во информации во втором тексте больше, чем в первом.. Это очень просто. Если в первом текст 4 бита на символ, а во втором - 8 бит на символ, также из условия известно, что количество символов одинаковое и в первом и во втором текстах. Делим 8 на 4 и получаем, что во втором тексте количество информации больше в 2 раза...

ответ: в 2 раза