Определите, что будет напечатано в результате выполнения следующего алгоритма var k, m, i: integer; mas: array[1..10] of integer; begin mas[1]: =12; mas[2]: =43; mas[3]: =48; mas[4]: =56; mas[5]: =76; mas[6]: =73; mas[7]: =36; mas[8]: =96; mas[9]: =69; mas[10]: =25; k: =0; m1: =mas[1] div 10 - mas[1] mod 10; for i: =2 to 10 do begin m2: =mas[i] div 10 - mas[i] mod 10; if m1 > m2 then begin m1: =m2; k: =i; end; end; write(k); end.

m1=1-2=-1

m2=4-8=-4   k=3

 

m1=-4

больше нет такого m2 которое удовлетворяет условию    m1 > m2

 

значит k=3

 

а вобще в var ошибка: не указаны m1 и m2, а только некое m

Def equals(number, a):           l=list()          num=str(number)          a=str(a)          for item in list(num):                   if item==a:                           l.append(item)          return len(l) вывод  > > > equals(123343,4) 1 > > > equals(123343,3) 3 более короткая версия def function(number, a):     l=[int(x) for x in str(number)]       return l.count(a)                 

Решается вот таким жутким перебором (который, если немного подумать можно ещё сократить): //рюмка+рюмка=авария var a,b,c,d,e,f,g,h: integer; begin for a: =1 to 9 do  //р   for b: =0 to 9 do  //ю   if (b< > a) then     for c: =0 to 9 do  //м     if (c< > a)and(c< > b) then       for d: =0 to 9 do  //к       if (d< > a)and(d< > b)and(d< > c) then         for e: =1 to 1 do  //а         if (e< > a)and(e< > b)and(e< > c)and(e< > d) then           for f: =0 to 9 do //в           if (f< > a)and(f< > b)and(f< > c)and(f< > d)and(f< > e)then             for g: =0 to 9 do  //и             if (g< > a)and(g< > b)and(g< > c)and(g< > d)and(g< > e)and(g< > f)then               for h: =2 to 2 do  //я               if (h< > a)and(h< > b)and(h< > c)and(h< > d)and(h< > e)and(h< > f)and(h< > g)then                 if 2*(a*10000+b*1000+c*100+d*10+e)=e*100000+f*10000+e*1000+a*100+g*10+h then                 writeln(a*10000+b*1000+c*100+d*10+e,' ',e*100000+f*10000+e*1000+a*100+g*10+h); end. результат: 85931 171862