Найти число, которое образовано из данного числа записью цифр в обратном порядке - Pascal ABC
Формулировка задачи:
Найти число М, которое образовано из данного числа записью цифр в обратном порядке. На Оператор цикла
Решение задачи: «Найти число, которое образовано из данного числа записью цифр в обратном порядке»
textual
Листинг программы
var i,n,m,k: integer; begin write(' Введите число: '); Readln(n); repeat if ((n mod 10) = 0) and (n>0) then k:=1; // Если в конце числа 0 -->[1] m:= m + n mod 10; n:= n div 10; if (n>0) then m:=m*10; until ( n = 0 ); Write(' Запись в обратном порядке: '); if k=1 then write('0'); // [1]--> Тогда сначала выведем '0' writeln(m); writeln(' Число M = ', m); end.
Объяснение кода листинга программы
- Ввод числа с клавиатуры.
- Проверка на ноль в конце числа. Если это так, то переменная k становится равной единице.
- Разбиваем число на отдельные цифры, которые сохраняются в переменной m.
- Полученное число делится на 10 и результат сохраняется в переменной n.
- Если n больше нуля, то умножаем m на 10.
- Повторяем шаги 2-5 до тех пор, пока число не станет равным нулю.
- Выводим число в обратном порядке. Если переменная k равна единице, то выводим впереди ноль.
- Выводим полученное число M.