Question

1. Задача: Задано двузначное число. Поменять местами первую и вторую цифры числа. Выполнить готовую программу и протестировать ее для чисел 35, 27. Var a,b,al,a2: integer; Begin a= '); Write('введите значение a= Readin(a); a1:=a mod 10; {Выделение последней цифры в двузначном числе} a2:=a div 10; {Выделение первой цифры в двузначном числе} b:=al*10+a2; Write('искомое число =',b);
​

Answer 1

Ответ:
1) 53, 72
2) Замените строку
     b:= a1 * 10+a2;
   на строку
     b:=a1 * a2;