Помоги, пожалуйста, с задачей по Паскалю. Если можно, то с объяснением.В

Помоги, пожалуйста, с задачей по Паскалю. Если можно, то с объяснением.
В трехзначном числе x зачеркнули его заключительную цифру. Когда в оставшемся двузначном числе переставили числа, а потом приписали к ним слева заключительную цифру числа x, то вышло число N. По заданному N отыскать число x (значение N вводится с клавиатуры, число единиц в N не равно 0, 1lt;=Nlt;=999)

Задать свой вопрос
Галина
В числе x просто переставили задом наперёд все числа
Данильев Евгений
В числе x просто переставили задом наперёд все числа
2 ответа
Разбираем число N на числа, а потом собираем в подходящем порядке:
var n,n1,n2,n3,x:integer;
begin
write('n = ');
readln(n);
n1:=n div 100;
n2:=n div 10 mod 10;
n3:=n mod 10;
x:=n3*100+n2*10+n1;
writeln('x = ',x);
end.

Пример 1:
n = 25
x = 520

Пример 2:
n = 823
x = 328
X = 123
Зачёркиваем последнюю цифру: 12
Меняем числа местами: 21
Приписываем слева зачёркнутую цифру: 321
N = 321
Означает, чтобы вернуть число x, необходимо в числе N переставить все числа задом-наперёд.



Var N:integer;
Begin
Write('N = ');ReadLn(N);
Write('x = ',N mod 10,(N div 10) mod 10,N div 100);
End.



Пример работы программки:

N = 35
x = 530
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт