Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');Read(A);
Write('B = ');Read(B);
For A:=A to B do
P:=P*A;
WriteLn(P)
End.
1)
огурцы помидоры
москвичи
трактарист
дети
ученики
Кодировка влияет на объём одного символа, например в кодировке КОИ-8 один символ весит 1 байт(8 бит), а в кодировке unicode - 2 байта(16 бит)
Это. очень смешно. папа. съел все. апельсины