Beginvar b:boolean; s:real;a:=0;writeln('slovo');readln(z);while not (eof(z)) do beginif z=d then a:=a+1;writeln(a);end;end.
От ЦП идёт к ГП, но его нету в списке, так что... В общем, обвёл :) Если нужно только перечисленные, то от ЦП напрямую к монитору протяни, иначе ГП включи
7^5 = 16807
Возможны следующие программы, состоящие из 5 команд:
11111 -> 7^5 * 2^5 = 16807 * 32 = 537 824
11112 -> 7^4 * 2^4 = 2401 * 16 = 38 416
11122 -> 7^3 * 2^3 = 343 * 8 = 2744
11222 -> 7^2 * 2^2 = 49 * 4 = 196
12222 -> 7 * 2 = 14
22222 -> 1
Так как последовательность выполнения команд 1 и 2 не влияет на результат (например, результат программ 11122 и 12121 будет одинаковым), то количество различных чисел = 6
80*128*8=81920 бит=10 Кбайт
30/10=3 с
Ответ: 3 с