Разбить число 1234 на слагаемые - Pascal ABC

Формулировка задачи:

Здравствуйте. как разбить число 1234 на слагаемые. Т.е 1234=1+2+3+4. Спасибо

Код к задаче: «Разбить число 1234 на слагаемые - Pascal ABC»

textual
Procedure Show(A : Integer);
Begin
  If A>0 then
  Begin
    Show(A div 10);
    Writeln(A mod 10);
  end;
end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 4.167 из 5


СДЕЛАЙТЕ РЕПОСТ