Примеры задач

Простые типы данных


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

Методика решения

Используемые переменные:
n - введенное число,
m - число, записанное в обратном порядке.

Для начала, считываем с экрана число n .
Для реализации данной программы понадобятся операции mod – вычисление остатка от деления, и div – целочисленное деление.
При помощи операции mod вычисляем остаток от деления числа n на 10. Таким образом, находим последнюю цифру числа.

Например:
123 mod 10 = 3,

Прибавляем получившуюся цифру к числу m , предварительно увеличив его разряд с помощью умножения на 10. Затем число n делим нацело на 10 (при помощи операции div ) и получаем это же число без последней цифры.

Например:
123 div 10 = 12,

Повторяем все эти действия до тех пор, пока в числе n не закончатся цифры (пока n не станет равно 0).
После завершения цикла в переменной m окажется число n , записанное в обратном порядке. Выводим m на экран.

Листинг программы

Program ex3;
Uses crt;
Var n,m,a:longint;
Begin
Clrscr;
Writeln ('Ведите число');
Readln (n);
m:=0;
Repeat m:=m*10+n mod 10;
n:=n div 10
Until n=0;
Writeln (m);
Readkey;
end.

Запустить программу






Назад

Закрыть