Если число заканчивается на 2 или 3, то исходное число умножить на число десятков в нем, если число единиц от 7 до 9, то из числа вычесть сумму цифр числа, в противном случае отбросить последнюю цифру. pascal

Function summ(a: integer): integer; begin while(a< > 0) do begin   summ+=a mod 10;   a: =a div 10;   end; end; var a: integer; begin read(a); if(a mod 10 = 2) or (a mod 10 = 3) then a*=(a div 10) mod 10 else if(a mod 10 > = 7) and (a mod 10 < = 9) then a-=summ(a) else a: =a div 10; writeln(a); end.

Program DetkaKonfetka;

 uses Drawman;

begin                  

 Field(14,8);

 ToPoint (1,1);

 PenDown;                            

 OnVector(1,4);

 OnVector(4,4);

 OnVector(4,1);

 OnVector(1,1);

 PenUp;

 ToPoint (3,3);

 PenDown;                        

 OnVector(3,6);

 OnVector(6,6);

 OnVector(6,3);

  OnVector(3,3);

 PenUp;

 ToPoint (5,5);

 PenDown;                        

 OnVector(5,8);

 OnVector(8,8);

 OnVector(8,5);

 OnVector(5,5);

 PenUp;

 ToPoint (7,6);

 PenDown;                        

 OnVector(6,10);

 OnVector(10,3);

 OnVector(7,3);

 OnVector(7,6);

 PenUp;

 ToPoint (9,4);

 PenDown;                        

 OnVector(12,4);

 OnVector(12,1);

 OnVector(9,1);

 OnVector(9,4);

  PenDown;

 ToPoint(0,0);

End.

8 LLLVR

81 LVVVV

98 RLRVR

110 RRLLR

179 VLRVR

Объяснение:

7 ['L', 'L', 'L', 'V', 'L']

8 ['L', 'L', 'L', 'V', 'R']

9 ['L', 'L', 'L', 'V', 'V']

80 ['L', 'V', 'V', 'V', 'R']

81 ['L', 'V', 'V', 'V', 'V']

82 ['R', 'L', 'L', 'l', 'L']

98 ['R', 'L', 'R', 'V', 'R']

99 ['R', 'L', 'R', 'V', 'V']

100 ['R', 'L', 'V', 'L', 'L']

109 ['R', 'R', 'L', 'L', 'L']

110 ['R', 'R', 'L', 'L', 'R']

111 ['R', 'R', 'L', 'L', 'V']

178 ['V', 'L', 'R', 'V', 'L']

179 ['V', 'L', 'R', 'V', 'R']

180 ['V', 'L', 'R', 'V', 'V']

Здесь написаны ближайшие к каждому ответу, чтобы вы могли проверить. Все это было решено с Объяснять я думаю не имеет смысла, тут два решения: в ручную и написать программу. Если нужна будет программа, напишите, скину.