Question

Просьба помочь с заданием (pascal)
Как это решить??
В трехзначном числе X , Зачеркнули 2-ую цифру , когда образовавшийся двухзначному числу приписали слева 2-ую цифру числа X ,что-бы получилось число X по заданному Y найти число X

Answer 1

var

 X, Y, s, d, e: integer;

begin

 read(Y);

 d := Y div 100;

 s := Y div 10 mod 10;

 e := Y mod 10;

 X := 100 * s + 10 * d + e;

 write(X);

end.

Объяснение:

В условии ошибка. Должно быть так:

Зачеркнули 2-ую цифру , когда к образовавшемуся двухзначному числу приписали слева 2-ую цифру числа X , получилось число Y. По другому вообще непонятно, что такое Y. А так это известная задача перестановки местами соседних цифр в числе.