Кол-во цифр в числе,обратное ему число

[levine]

Дана задача:
дано целое число.Получить число,в котором цифры идут в обратном порядке
(т.е. если дано число 12345,то на экран нужно вывести число 54321)
Я не могу посчитать кол-во цифр в числе,да и написать программу не получается.

Помогите!Спасибо заранее

[Serge_Bliznykov]

вариантов решения может быть много.
начания с использования строк (число можно преобразовать в строку, строку перевернуть и преобазовать эту строку в новое "перевёрнутое" число:

var s, s2 : string;
  N,M : longint;
  i, err : integer;
begin
  WriteLn('Введите целое число:');
  Readln(N);
  str(N, s);
  s2 :='';
  for i:=Length(s) downto 1 do
    s2 := s2 + s[i];
  val(s2, M, err);
  WriteLn('Полученное число: ', M);
  readln
end.

и заканчивая относительно "честным" кодом, когда число формируется (собирается) по одной циферке из исходного числа:

var 
  N,M : longint;
begin
  WriteLn('Введите целое число:');
  Readln(N);
  M := 0;
  while N>0 do begin
    M := M * 10 + (N mod 10);
    N := N div 10;
  end;
  WriteLn('Полученное число: ', M);
  readln
end.

[levine]

спасибо большое!
несколько вопросов:
зачем нам s,s2?что такое err и зачем оно нужно?

[Poma][a]

s - ваше число n которое было переведено в строку
s2 - ваше число n наоборот
err - есть справка цитирую

Err - позиция, в которой произошла ошибка при преобразовании, или нуль, если ошибки не было.

и т.к. Серж во избежания потерь драгоценного времени копировал, то во второй программе он забыл убрать err оно там не нужно, и не используется => удали его и всё

[levine]

я убрала и s, и s2 и err,все прекрасно работает.
спасибо,что объяснили!

[Serge_Bliznykov]

Сообщение от Poma][a

и т.к. Серж во избежания потерь драгоценного времени копировал, то во второй программе он забыл убрать err оно там не нужно, и не используется => удали его и всё

Poma][a, ну да, спасибо. всё точно. так всё и было - копи-паст подвёл.


p.s. я подредактировал свой пост #2, чтобы не было лишних переменных..