Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Help

Автор: Xumuk 18.03.2007 22:54

Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (N — входной, S — выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.
Напишите прогу пож-ста прям здесь, если не трудно sad.gif

Автор: Артемий2 18.03.2007 22:59

Зачем дублировать? http://forum.pascal.net.ru/index.php?showtopic=16224 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 18.03.2007 23:21

и это http://forum.pascal.net.ru/index.php?showtopic=15791&hl=%F0%E5%EA%F3%F0%F1%E8%FF wink.gif