В трехзначном числе зачеркнули его последнюю цифру.Когда в оставшемся двузначном числе переставили цифры , а затем приписали к ним слева последнюю цифру числа х,то получилось число n . Найти число х ( значение n вводится с клав...
В трехзначном числе зачеркнули его последнюю цифру.Когда в оставшемся двузначном числе переставили цифры , а затем приписали к ним слева последнюю цифру числа х,то получилось число n . Найти число х ( значение n вводится с клавиатуры 1
Гость
Ответ(ы) на вопрос:
Гостьx - abc
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.
Не нашли ответ?
Похожие вопросы