Найти число, которое образовано из данного числа записью цифр в обратном порядке - 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.

Объяснение кода листинга программы

  1. Ввод числа с клавиатуры.
  2. Проверка на ноль в конце числа. Если это так, то переменная k становится равной единице.
  3. Разбиваем число на отдельные цифры, которые сохраняются в переменной m.
  4. Полученное число делится на 10 и результат сохраняется в переменной n.
  5. Если n больше нуля, то умножаем m на 10.
  6. Повторяем шаги 2-5 до тех пор, пока число не станет равным нулю.
  7. Выводим число в обратном порядке. Если переменная k равна единице, то выводим впереди ноль.
  8. Выводим полученное число M.

Оцени полезность:

6   голосов , оценка 4.5 из 5
Похожие ответы