Как найти сумму делителей числа паскаль

1. Найти количество простых делителей числа
2. Найти сумму положительных элементов массива
3. Получить сумму всех членов последовательности
4. Найти сумму положительных чисел последовательности
5. Найти все трехзначные числа, сумма цифр которых равна данному целому числу
6. Найти все натуральные числа из промежутка от 1 до 200, У которых сумма цифр равна S
7. Найти сумму всех четных элементов массива А, имеющих четные индексы
8. Найти сумму четных цифр числа на нечетных местах
9. Найти сумму цифр введенного с клавиатуры натурального числа
10. Дано число n. Найдите такой его делитель d
11. Найти количество цифр, равных 0, в заданном натуральном числе

Решение задачи 2.16 на Паскале

program t216;

uses SysUtils;                 //Подключить этот модуль

//****************************************************************
// ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ
//****************************************************************
var
  i   : WORD;                  //Индекс
  N   : WORD;                  //Число
  Sum : DWORD = 0;             //Сумма
  Str : string = '';           //Строка для делителей

//****************************************************************
// ФУНКЦИИ И ПРОЦЕДУРЫ
//****************************************************************

//****************************************************************
// Функция принимает число и возможный делитель.
// ВХОД:  Num - число
//        Del - возможный делитель
// ВЫХОД: TRUE - если Del является делителем числа Num
//****************************************************************
function ThisDivider(Num, Del : WORD) : boolean;
begin
  if Del = Num then
    begin
      Result := FALSE;
      Exit;
    end;
  Result := (Num mod Del) = 0;
end;

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
begin
  Randomize;               //Запустить генерацию случайных чисел
  N := Random(High(N));    //Получить случайное число

  WriteLn('N = ', N);

  for i := 1 to N do       //В цикле проверить возможные делители
    begin
      if ThisDivider(N, i) then  //Если это делитель, то
        begin
          Sum := Sum + i;        //прибавить его к сумме
          Str := Str + IntToStr(i) + ' ';
        end;
    end;

  //Вывести на экран
  WriteLn('Dividers : ', Str);
  WriteLn('Sum of the divisors = ', Sum);

  WriteLn('The end. Press ENTER...');
  ReadLn;
end.     

Решение задачи 2.16 на С++

#include <cstdlib>
#include <iostream>
#include <sstream>                    //Подключить этот файл

using namespace std;

//****************************************************************
// ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ
//****************************************************************
unsigned short int N;                  //Число
unsigned long int  Sum = 0;            //Сумма
ostringstream      Str;                //Строка для делителей 

//****************************************************************
// ФУНКЦИИ И ПРОЦЕДУРЫ
//****************************************************************

//****************************************************************
// Функция принимает число и возможный делитель.
// ВХОД:  Num - число
//        Del - возможный делитель
// ВЫХОД: TRUE - если Del является делителем числа Num
//****************************************************************
bool ThisDivider(unsigned short int Num, unsigned short int Del)
{
  if (Del == Num) return(false);
  return(0 == (Num % Del));
}     

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
int main(int argc, char *argv[])
{
  srand(time(0));            //Запустить генерацию случайных чисел
  N = rand() % USHRT_MAX;    //Получить случайное число
  
  Str.clear();
  
  cout << "N = " << N << endl;
  for(int i = 1; i <= N; i++)
  {
    if (ThisDivider(N, i))
    {      
      Str << i << ' ';
      Sum = Sum + i;
    }
  }
  
  //Вывести на экран
  cout << "Dividers : " << Str.str() << endl;
  cout << "Sum of the divisors = " << Sum << endl;     
  
  system("PAUSE");
  return EXIT_SUCCESS;
}