Найти суммы цифр пяти данных чисел. (Турбо паскаль)

[erte]

Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (99>=N>=10) (N — входной, S — выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.

[Poma][a]

А это что? Решили заданиями помериться? Да пожалуйста :

Для биномиальных коэффициентов (числа сочетаний из n по k) хорошо известна рекуррентная формула: Cnk=Cn-1k-1+Cn-1k, Cn0=Cnn=1.
Формат входных данных

Вводится 2 числа - n и k.
Формат выходных данных
Необходимо вывести значение Cnk.

[erte]

Мне надо программа написанная на языке программирования.

[rUs_LAN]

Блин, так мало надо человеку. Вот мне надо чтоб меня окружали блондинки с хорошенькой фигурой, ну и денег чтоб хватало на все что я хочу, ну и здоровья конечно.

П.С. сорри за офтоп, но чтото последним временем такой пи***ц начал твориться.

[Poma][a]

Мне надо программа написанная на языке программирования.

А может Вам учебник русского надо + правила этики?

[Sciv]

Сообщение от rUs_LAN

П.С. сорри за офтоп, но чтото последним временем такой пи***ц начал твориться.

У кого-то приближается сессия, у кого-то конец света... Для некоторых эти понятия эквивалентны.

Но, несмотря ни на что, все ждут Нового года

То ТС вот Вам Ваша функция. На языке программирования, как просили.

Процедура SumDigit(N,S)
	S=Цел(N/10)+(N-Цел(N/10)*10);
КонецПроцедуры

Встроенный язык 1С

[Serge_Bliznykov]

а вбить в поиск прямо название своей функции SumDigit и найти такую тему:

http://www.programmersforum.ru/showthread.php?t=32799

очень сложно, да?!



Sciv, не глумитесь над ним.. у него же в названии темы указан язык TurboPascal....

[Sciv]

Program Proga;
uses CRT;

var i: byte;
     num: integer;
     sum: integer;

procedure SumDigit(var s: integer; n: integer);
begin
  s:=n div 10+n mod 10;
end;

begin
  For i:=1 to 5 do begin
    Repeat
      clrscr;
      Write('Число: ');
      Read(num);
    Until (num>=10) and (num<=99);
    SumDigit(sum,num);
    WriteLn(' Сумма цифр=',sum);
  end;  
  ReadLn;
end.

[Serge_Bliznykov]

Sciv, что интересно, процедура у Вас не соответствует заданию!

правильно:
procedure SumDigit(N: integer; var S: integer);
...

[Sciv]

ну так поменять в описании функции s и n местами...

procedure SumDigit(n: integer; var s: integer);

Вы про это?

Sciv, не глумитесь над ним.. у него же в названии темы указан язык TurboPascal....

Да уж, прошу прощения у всех и у топикстартера в первую очередь. Что-то день с утра не задался, и трупопаскакаль в теме просмотрел