Question

в трехзначном числе x зачеркнули его вторую цифру. когда к образовавшемуся двухзначному числу слева приписали вторую цифру числа x, то получилось число y. По заданному y найти число x/ Значение y вводится с клавиатуры; 99<y<1000; число десятков в y не равно нулю

Answer 1

var y: integer;
begin
write('Введите трехзначное числo: y = ');
readln(y);
writeln('Число x = ',y mod 100 div 10,y div 100,y mod 10)
end.