Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (N — входной, S — выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.
Напишите прогу пож-ста прям здесь, если не трудно
Зачем дублировать? http://forum.pascal.net.ru/index.php?showtopic=16224
Добавлено через 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;
и это http://forum.pascal.net.ru/index.php?showtopic=15791&hl=%F0%E5%EA%F3%F0%F1%E8%FF