Компьютерлік модель құрудын неше тәсілі бар?​

Решить можно обратным ходом т.е. провести все вычисления в обратном порядке:
Предположим что число 62 мы таки получили,тогда пред последним шагом было либо умножение, либо перестановка цифр; рассмотрим два случая:
1)Если перестановка, то:
перед ней было число 26
если его тоже получили путем перестановки получается замкнутый круг, следовательно оно получило умножением из 13-нечетное 31(перестановка) тоже нечет - противоречие.
2)Если 62 получили умножением то:
Раньше было число 31-нечетное и если пере ставить цифры то 13-тоже нечетное, следовательно случай тоже невозможен.
ответ: число 62 из единицы получить нельзя

program raf105;

var iq,n,x,i,choco,choco_counter,kid_counter: integer;

begin

write('Введите количество детей в детском саду: ');

readln(n);

write('Введите желаемый IQ: ');

readln(x);

writeln('Вводите IQ ',n,' детей по очереди.');

for i:=1 to n do

begin

 readln(iq);

 if iq >= x

   then begin

     if choco div 228 < 1

       then begin

         choco_counter+= 1;

         choco+= 1337;

       end;

     choco-= 228;

     kid_counter+= 1;

   end;

end;

writeln('Награду получат ',kid_counter,' дет.');

writeln('Шоколада потребуется приобрести: ',choco_counter,' плит.');

end.

PascalABC 3.4.2