Процедуры и функции. Число наоборот - Pascal ABC

Формулировка задачи:

Добрый вечер! Помогите, пожалуйста! Заменить данные n натуральных чисел на числа, которые получаются из исходных записью его цифр в обратном порядке (например, дано число 156, нужно получить 651). Определить функцию, которая записывает числа в обратном порядке.

Код к задаче: «Процедуры и функции. Число наоборот - Pascal ABC»

textual
function revers(n:integer):integer;
var m,s:longint;
    i:byte;
begin
if n<10 then s:=n
else
 begin
  s:=0;
  while n>0 do
   begin
    i:=n mod 10;
    s:=s*10+i;
    n:=n div 10;
  end;
 end;
revers:=s;
end;
var n,i,a:integer;
begin
write('Сколько чисел вести n=');
readln(n);
writeln('Введите ',n,' натуральных чисел');
for i:=1 to n do
 begin
  readln(n);
  writeln('Число наоборот=',revers(n));
 end;;
end.

10   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ