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

валя20063 валя20063    2   04.10.2019 16:30    0

Ответы
Golovina077 Golovina077  09.10.2020 20:00

var

   n, m: longint;

   a: byte;

begin

   readln(n);

   m := 0;

   while n>0 do begin

       a := n mod 10;

       n := n div 10;

       m := m*10 + a;

   end;

   writeln(m);

 

readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика