разработать функцию, которая определяет сумму цифр целого числа

[IceAgainstIce]

1) разработать функцию, которая определяет сумму цифр целого числа
2)разработать процедуру, которая в последовательности целых чисел находит количество чисел, сумма цифр которых кратна 7 и максимальное среди них. ( желательно с блок-схемами, хотя бы для 2ой)
P/s - заранее благодарен.

[Alar]

http://www.programmersforum.ru/showthread.php?t=15843
http://yandex.ru/yandsearch?date=&te...&ds=&numdoc=10

[IceAgainstIce]

забыл добавить - нужно решить эти две задачи при помощи модульного программирования, используя подпрограммы....поэтому вышеизложенное не подоходит(

[Arigato]

Решайте, в чем сложность? Теория есть, дело за Вами.

[Rusl92]

1) разработать функцию, которая определяет сумму цифр целого числа
В чем проблема?
Со строками можно работать как с массивом
Нужно считать строку (вместо числа), и в цикле
for i:=1 to length(chislo) do
в переменную какую то записывать значение суммы цифр
s:=s+ord(chislo[i])-48 (потому что код '1' равен 49, '2' - 50 и т.д.)
ну вот и все, оформляешь все в процедуру

[Dj_smart]

ну вот и все, оформляешь все в процедуру

да уж, процедура)))
во первых это функция. А во вторых есть замечательная функция strtoint, что была в той же теме...

function sum(st:string):integer;
var i: Integer;
begin
  result:=0;
  for i:=1 to Length(st) do  result:=result+StrToInt(St[i]);
end;

Ну а второй вопрос:

procedure seven;
begin
  // mas - массив
  // col - количество элементов
  // maxid,max - максимальное
  for n:=0 to col do begin
    if (sum(mas[n])) mod 7=0 then begin // sum - функция первого задания
      if mas[n]>max then begin
        maxid:=n;
        max:=mas[n];
      end;
      inc(col);
    end;
  end;
end;

Вот собсна и дело в шляпе