Пусть длина номера = 5
Мощность алфавита = 40
Тогда для записи 1 сивола понадобится 6 бит (2^6 > 40 < 2^5)
6 * 5 = 30 бит на 1 номер. Номер кодируется целым кол-во байт, следовательно 30/8=3.75, отсюда 4 байта отводится на 1 номер.
4*50= 200 байт.
Function min (a,b,c,d: integer):integer;
var m1,m2:integer;
begin
if a<b then m1:=a else m1:=b;
if c<d then m2:=c else m2:=d;
if m1<m2 then min:=m1 else min:=m2;
end;
var a,b,c,d:integer;
begin
writeln('Введите 4 числа:');
readln(a,b,c,d);
writeln('min = ',min(a,b,c,d));
end.
Пример:
Введите 4 числа:
5 8 3 6
min = 3
=5*(A2+C3)/(2*B2-3*D3)
=(B2+C4)*(2*B2-3*D3) примечание: В условии не хватает одной открывающей скобки!!! Я поставил ее произвольно...
=2*(C2-C3)+(3^2*(4*K2-3*C5))
Для того, чтобы запись числа оканчивалась на 8, это число должно делится на основание системы счисления с остатком 8. Следовательно, число 30-8=22 должно делится на это число без остатка, причём число строго больше восьми. Получаются числа 11 и 22.