Перевернуть число (Pascal)

Помечено: ,

Просмотр 0 веток ответов
  • Автор
    Сообщения
    • #5583
      @admin

      Задача: дано натуральное число. Записать его в обратном порядке. Например, 12345 должно превратиться в 54321.

      Решение заключается в преобразовании числа в строку и выводу ее символов в обратном порядке:

      program One_1;
      
      uses
        CRT;
      
      var
        x: longint;
        i, err: integer;
        s, z: string;
      begin
        ClrScr;
        readln(x); {ввод числа}
        str(x, s); {преобразуем число в строку}
        z := '';
        for i := length(s) downto 1 do
          z := z + s[i]; {запись строки наоборот}
        val(z, x, err); {преобразуем строку в число}
        writeln(x); {вывод результата}
        readln;
      end.

Просмотр 0 веток ответов
  • Для ответа в этой теме необходимо авторизоваться.