Составить программу, которая меняет у пяти любых чисел, вводимых с клавиатуры, порядок...

Question

Составить программу, которая меняет у пяти любых чисел, вводимых с клавиатуры, порядок следования цифр в числе на обратный, используя подпрограмму процедура

Answer 1

var

n:integer;

begin

repeat

write('N = '); readln(n);

until (n>=100) and (n<=999);</p>

writeln('Было введено число - ',n);

writeln('_________________________');

writeln('Младшая цифра - ',n mod 10);

writeln('Средняя цифра - ',n div 10 mod 10);

writeln('Старшая цифра - ',n div 100);

writeln('_________________________');

writeln('Перевёрнутое число - ',n mod 10,n div 10 mod 10,n div 100);

end.

1

Объяснение: