Предмет: Информатика, автор: Аноним

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

Ответы

Автор ответа: parasockagleb
0

var

n:integer;

begin

repeat

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

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

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

Объяснение:

Похожие вопросы
Предмет: Алгебра, автор: имммм1