Задать вопрос Регистрация
Помочь другим

  • помогите срочно с нформатикой, плиз: написать процедуру,которая получает целочисленные переменные и разворачивает её цифры в обратном порядке.

     

     

Ответы 1

  • procedure Reverse (var a:integer);

    var

      r:integer;

    begin

      r := 0;

      while a <> 0 do

      begin

        r := r * 10 + a mod 10;

        a := a div 10;

      end;

      a := r;

    end;

     

     

    //функция

    function Reverse (a:integer):integer;

    var

      r:integer;

    begin

      r := 0;

      while a <> 0 do

      begin

        r := r * 10 + a mod 10;

        a := a div 10;

      end;

      Reverse := r;

    end;

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years