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);
Answers & Comments
Ответ:
1) 53, 72
2) Замените строку
b:= a1 * 10+a2;
на строку
b:=a1 * a2;