Var n,f,i:integer;
begin
n:=10;
f:=1;
for i:=1 to n do f:=f*i;
writeln(n,'! = ',f);
end.
Результат:
10! = 3628800
По методу описания символов:растровые,векторные,контурные и алгоритмические
По размеру кегельной площади знака :моноширинные и пропорциональные
По типу рисунка:рубленые,с засечками,декоративные и рукописные
1) 26 символов = по другому 2 в 5 степени (с остатком);
2) 240 * 5 = 1200 бит
В ходе построение логически функции нужно по заданный таб
1 знак=1 байт
1 байт +7500000000 мбаайт