переставить вторую и третью цифры числа

[вовка00]

задача:
дано трёхзначное число переставить вторую и третью цифры местами

[Esgal]

пусть переменная х содержит данное трёхзначное число

Код: Выделить всё

e:=x mod 10;
d:=((x-e) div 10) mod 10;
x:=x-d*10-e+e*10+d;

теперь х содержит трёхзначное число. в котором поменены местами последнии две цифры... это лишь один из способов... попробуйте самостоятельно найти способ лучше

[Хыиуду]

s:=inttostr(x);
x:=strtoint(s[1]+s[3]+s[2]);