100 50 25 12,5 6,25 3,125 1,5625
2^i=16
16=2^4
i=4
если не ошибаюсь то будет так
Номер 4
program Other;
var
a,b: integer;
begin
a:=5;
b:=0;
if a = 1 then
{Next action...}
else
begin
b:=b+a;
a:=a-1;
end;
end.
Var a,b,c:integer;
begin
write(' введите два различных числа');
read(a,b);
if a>b then c:=a else c:=b;
writeln('большее число =', c);
end.
Программы из 5 команд и результаты их выполнения:
11111: 7^5 * 2^5 = 16807 * 32 = 537824
11112: 7^5 / 7 * 2^4 = 2401 * 2^4 = 38416
11122: 7^5 / 7^2 * 2^3 = 343 * 8 = 2744
11222: 7^5 / 7^3 * 2^2 = 49 * 4 = 196
12222: 7^5 / 7^4 * 2 = 7 * 2 = 14
22222: 7^5 / 7^5 = 1
(Сами числа вычислять не обязательно)
Все другие программы будут давать в результате одно из перечисленных выше значений. Например, результат программы 12121 = результату программы 11122:
7^5 * 2 / 7 * 2 / 7 * 2 = 7^5 / 7^2 * 2^3
Ответ: количество различных чисел = 6