Var
i, n: integer;
P: real;
Begin
Write('n = ');
ReadLn(n);
P := 1;
For i := 1 to N do
P := P * i;
WriteLn('P = ',P);
End.
<span>eabab ПЕРВАЯ ГЛАСНАЯ, А ПОСЛЕДНЯЯ СОГЛАСНАЯ</span>
1) A = 81
G = 6
2) H = 13
L = 21
3)
1. параметру G присваиваются значения от 10 до 6, при каждом из значений параметр A меняет свое значение по формуле, в итоге получаются следующие значения:
A = 21 G = 10
A = 39 G = 9
A = 55 G = 8
A = 69 G = 7
A = 81 G = 6
2. Пока параметр H ≤ 12 параметры L и H меняют свои значения по формулам, в итоге получаются следующие значения:
H = 1 L = 0
H = 5 L = 3
H = 9 L = 10
H = 13 L = 21
4) фотографии 1 и 2
5) фотографии 3 и 4
Может из двоичной в восьмиричную? если да, то так:
11011011=333
11000001=301
1101011=153
11010001=321