Напишите программу для записи четырехзначного числа в обратном порядке. Например:...

Question

Напишите программу для записи четырехзначного числа в обратном порядке.
Например:
2451-->1542
Паскаль.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
ReadInteger().ToString().Reverse().Select(x->x.ToDigit()).Println('');
end.

Comments

Слишком сложно 0_0

Answer 2

Var n,m: integer;
begin
  write('n = ');  readln(n);
  m:=0;
  repeat
    m:=m*10+(n mod 10);
    n:=n div 10;
  until n=0;
  writeln(m);
end.

n = 2456
6542

Comments

ты просто переписал из другого сайта

---

Во первых, это не прилично, "тыкать", во вторых, я Вам могу привести еще три варианта решения этой задачи, если Вы в этом разбираетесь. Например, такое writeln(ReadString.Reverse.JoinIntoString(''));

---

Или, может быть, Вы хотите "изобрести" велосипед?

---

нет , мне нужен другой вариант