юзер вводит пятизначное число,необходимо составить обратное число,заменив четные

Юзер вводит пятизначное число,необходимо составить оборотное число,заменив четные значения разрядов на нечетные и напротив
Паскаль

Задать свой вопрос
1 ответ

var

   n, m: longint;

   a: byte;

begin

   readln(n);

   m := 0;

   while ngt;0 do begin

       a := n mod 10;

       n := n div 10;

       m := m*10 + a;

   end;

   writeln(m);

 

readln;

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт