Втрехзначном числе зачеркнули его последнюю цифру.когда в оставшемся двузначном числе переставили цифры , а затем приписали к ним слева последнюю цифру числа х,то получилось число n . найти число х ( значение n вводится с клавиатуры 1
var x, n: integer; a: array [1..4] of char; //Пусть тут хранятся символы, 4-ый - буфер для обмена
begin readln(n); for x := 1 to 3 do a[x] := n.ToString()[x]; //Заполняем массив цифрами числа a[4] := a[1]; a[1] := a[2]; a[2] := a[4]; x := strtoint(a[1] + a[2] + a[3]); //Переводим "правильный" массив в число writeln(x); end.
ab
ba
n - bac
var
x, n: integer;
a: array [1..4] of char; //Пусть тут хранятся символы, 4-ый - буфер для обмена
begin
readln(n);
for x := 1 to 3 do
a[x] := n.ToString()[x]; //Заполняем массив цифрами числа
a[4] := a[1];
a[1] := a[2];
a[2] := a[4];
x := strtoint(a[1] + a[2] + a[3]); //Переводим "правильный" массив в число
writeln(x);
end.