Для анализа программы на языке Pascal, представим ее код:
program Program1;
var
a, b, c: integer;
begin
b := 0;
a := 485;
c := a mod 10;
b := b * 10 + c;
a := a div 10;
c := a mod 10;
b := b * 10 + c;
a := a div 10;
c := a mod 10;
b := b * 10 + c;
writeln(b);
end.
Объяснение:
Изначально переменной
aприсваивается значение 485, а переменнойbприсваивается 0.Далее программа последовательно выполняет следующие действия:
- Вычисляет остаток от деления переменной
aна 10 и присваивает результат переменнойc. - Умножает текущее значение переменной
bна 10 и прибавляет к нему значение переменнойc. - Делит переменную
aна 10, чтобы избавиться от последней цифры. - Повторяет эти шаги еще два раза для оставшихся цифр в переменной
a.
- Вычисляет остаток от деления переменной
На каждом шаге программы, переменная
bдополняется значением цифры из переменнойaсправа.После завершения цикла и выполнения всех действий, программа выводит значение переменной
b, которая будет представлять собой число, обратно составленное из цифр числа, записанного в переменнойa.
Результат:
Если в переменную a было введено число 485, программа выведет число 584.