Question

Напишите функцию function reverse (n:integer):integer (Pascal), которая переставляет цифры числа в обратном порядке .

Answer 1

Function reverse(n:integer):integer;
var m:integer;
begin
m:=0;
while n>0 do
 begin
 m:=m*10+n mod 10;
 n:=n div 10;
 end;
reverse:=m;
end;
begin
writeln(reverse(12345));
end.

Результат:
54321

Answer 2

Конечно, вот пример функции на языке Pascal, которая переставляет цифры числа в обратном порядке:

function Reverse(n: integer): integer;
var
  reversedNum, remainder: integer;
begin
  reversedNum := 0;
  while n <> 0 do
  begin
    remainder := n mod 10;
    reversedNum := reversedNum * 10 + remainder;
    n := n div 10;
  end;
  Result := reversedNum;
end;

Эта функция принимает целое число n и затем использует цикл while, чтобы извлекать последнюю цифру числа n и добавлять её к переменной reversedNum в обратном порядке. После этого эта цифра убирается из числа n. Этот процесс продолжается до тех пор, пока число n не станет равным 0. И в конце функция возвращает перевёрнутое число reversedNum.