Question

В трехзначном числе х зачеркнули первую цифру. Когда
полученное число умножили на 10, а произведение сложили с
первой цифрой числа х, то получилось число n. По заданному n
найти число х (значение n вводится с клавиатуры, 1 <= n <=999
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУУУ

Answer 1

//PascalABC.NET 3.2 сборка 1318

Var
  n,first,oth:integer;
begin
readln(n);
first:=n mod 10;
oth:=n div 10;
if first<>0 then writeln(first,oth) else writeln('X не трёхзначеное');
end.

Пример ввода:
234
Пример вывода:
423