Страница 1 из 1
переставить вторую и третью цифры числа
Добавлено: 12 апр 2009, 14:41
вовка00
задача:
дано трёхзначное число переставить вторую и третью цифры местами
Re: пожалуйста помогите очень просто
Добавлено: 13 апр 2009, 02:00
Esgal
пусть переменная х содержит данное трёхзначное число
Код: Выделить всё
e:=x mod 10;
d:=((x-e) div 10) mod 10;
x:=x-d*10-e+e*10+d;
теперь х содержит трёхзначное число. в котором поменены местами последнии две цифры... это лишь один из способов... попробуйте самостоятельно найти способ лучше
Re: переставить вторую и третью цифры числа
Добавлено: 14 апр 2009, 00:22
Хыиуду
s:=inttostr(x);
x:=strtoint(s[1]+s[3]+s[2]);