Во-первых, X1 < 8, иначе число 2N в 16-ной записи станет 4-значным. Можно написать такую программу поиска этих чисел Начало k = 0 ' Это счетчик чисел, которые мы ищем Цикл по X1 от 1 до 7 Цикл по Y1 от 0 до 15 Цикл по Z1 от 0 до 15 N = X1*256 + Y1*16 + Z1 M = 2*N X2 = Int (M / 256) Y2 = Int ((M - X2*256) / 16) Z2 = M Mod 16 Если (X1+Y1+Z1 = X2+Y2+Z2) And ((X1 = 2) Or (Y1 = 2) Or (Z1 = 2), То k = k + 1 Конец Если Конец цикла по Z1 Конец цикла по Y1 Конец цикла по X1 Вывод k Конец
1. Основная трудность при чтении египетских иероглифов в том, что большинство египтян не имели понимания древнегреческой системы иероглифов. 2. Египтяне использовали значки-определители для того, чтобы лучше было читать. Значки-определители служили для звучаний слов. 3. Потому что само чтение или писание древнегреческих иероглифов было сложно , так как в то время образования было ужасным. 4. Первым, кому удалось расшифровать египетские иероглифы, был французский учёный, Жан-Франсуа Шампольон(1790-1832). Он составил полный список иероглифов и их греческих эквивалентов, создав тем самым основу для перевода всех египетских иероглифических текстов. 5. Основным носителем информации в египте являлись глиняные таблички, папирусные свитки и наскальные надписи. 6. Стебли растения разрезали на полосы, которые переплетали между собой, прессовали и высушивали на солнце. 7. Хранили в глиняных кувшинах и шкатулках.
Var
n,k,i:integer;
r:real;
begin
readln(n);
k:=1;
for i:=1 to n+1 do
k:=k*i;
r:=1/k;
writeln(r);
end.
Пример ввода:
1
Пример вывода:
0.5