Разбить число 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;

Объяснение кода листинга программы

  1. Объявляется процедура под названием Show, которая принимает один аргумент типа Integer.
  2. В процедуре проверяется, больше ли значение аргумента нуля. Если это так, то выполняются следующие действия: — Вызывается процедура Show с аргументом, полученным путем деления первого аргумента на 10. — Выводится остаток от деления первого аргумента на 10.
  3. Если значение первого аргумента меньше или равно нулю, то процедура завершается без выполнения каких-либо действий.
  4. Конец процедуры.

Оцени полезность:

6   голосов , оценка 4.167 из 5
Похожие ответы