Разбить число 1234 на слагаемые - Pascal ABC
Формулировка задачи:
Здравствуйте. как разбить число 1234 на слагаемые. Т.е 1234=1+2+3+4. Спасибо
Решение задачи: «Разбить число 1234 на слагаемые»
textual
Листинг программы
Procedure Show(A : Integer); Begin If A>0 then Begin Show(A div 10); Writeln(A mod 10); end; end;
Объяснение кода листинга программы
- Объявляется процедура под названием Show, которая принимает один аргумент типа Integer.
- В процедуре проверяется, больше ли значение аргумента нуля. Если это так, то выполняются следующие действия: — Вызывается процедура Show с аргументом, полученным путем деления первого аргумента на 10. — Выводится остаток от деления первого аргумента на 10.
- Если значение первого аргумента меньше или равно нулю, то процедура завершается без выполнения каких-либо действий.
- Конец процедуры.