Помощь - Поиск - Пользователи - Календарь
Полная версия: Help
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Xumuk
Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (N — входной, S — выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.
Напишите прогу пож-ста прям здесь, если не трудно sad.gif
Артемий
Зачем дублировать? Процедуры в Pascale dry.gif

Добавлено через 19 мин.
Вот для успокоения:
procedure SumDigit(n: Integer; var s: Integer);
var
h: Integer;
begin
h:=n;
while not (h=0) do begin
s:=s+abs((h mod 10));
h:=h div 10;
end;
end;
Caranthir
и это Задача на рекурсию... wink.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.