Var
c : integer;
k : char;
begin
c := 0;
while not eoln do
begin
read (k);
if k = ' ' then
begin
if c > 10 then
begin
write ('YES');
halt;
end;
c := 0;
end
else
c := c + 1;
end;
if c > 10 then write ('YES') else write ('NO');
end. <span>
</span>
Var
x,y:real;
begin
Write('x='); Read(x);
y:=(3.2*sin(x)+sqrt(1+x))/abs(5);
Writeln('y=',y)
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
3 вариант ответа, в двоичной системе 11+11=110 что соответствует третьему варианту. Я так понял решение задачи.