Function avg( i,j,k,m: float ): float;
begin
result := (i+j+k+m) / 4.0;
end;
Определяем мощность (количество символов) использующегося алфавита. 12 букв и 10 цифр составляют 22 символа. В 1 байте допустимо запоминать 256 комбинаций, поэтому "минимальное количество байтов" для кодирования символа равно 1. Номер из 6 символов займет 6 байт.
А для 32 номеров потребуется 32×6 = <em>192 байта.</em>
Я встречал эту задачу в несколько ином виде: Каждый символ кодируется одинаковым и минимально возможным количеством не байтов, а бит. А номер кодируется минимально возможным количеством байт. Тогда получается 5 бит на символ (2⁴ < 22 < 2⁵), 6 символов требуют 5×6 = 30 бит = 30/8 ≈ 4 байта. А 32 номера занимают 32×4 = 128 байт.
Var i,k,x,y,l,m,s:integer;
begin
readln(k);
readln(x);
readln(y);
readln(l);
readln(m);
for i:=1 to k do
begin
s:=x*l;
x:=x+y;
l:=l+m;
end;
writeln(s);
end.
Если нужно, переменные можно вводить в 1 строку через пробел, записав так: readln(a,b,c,d)