Обобщение

Зная, как доставать из числа цифры и как конструировать число по его цифрам можно решать задачи вот такого типа:

Дано трёхзначное число, переписать его в обратном порядке.

Общий принцип решения задания: сначала выделяем все цифры числа, потом собираем их в нужном порядке. Эта идея реализована в следующей программе, где цифры числа хранятся в переменных c1, c2 c3.

Program Zadom;

Var a, c1, c2, c3, rez : integer;

Begin

a := 425; { Данное трёхзначное число }

c3 := a mod 10; { Выделяем третью цифру }

c2 := a div 10 mod 10; { Выделяем вторую цифру }

c1 := a div 100; { Выделяем первую цифру }

rez := c3*100 + c2*10 + c1 { Конструируем нужное число из цифр }

End.

Фразы, записанные в {фигурных} скобках, называются комментариями. Комментарии не обрабатываются компьютером, но служат подсказками для человека, читающего программу. Их обязательно надо использовать, поясняя некоторые замысловатые участки программы.