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

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

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

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

Используемые переменные:
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.

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

Назад

X