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

Focussed Focussed    3   04.10.2019 18:00    1

Ответы
kfisatidi kfisatidi  09.10.2020 20:08

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.

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