решить задачки по с++,сама пыталась, но безуспешно.
1) Составить программу для вычисления суммы факториалов всех печатных чисел .Построить блок схему
2.)Составить программу для нахождения наибольшего общего деятеля четырёх натуральных чисел Построить блок схему.
3.)Заменить отрицательные элементы линейного массива их модулями ,не пользуясь стандартной функцией вычисления модуля. Подсчитать количество произведённых замен.
Построить блок схему.

#include <iostream>

using namespace std;

unsigned long int Rev(unsigned long int x);

int main()  

{

unsigned long int a, b;

cout << "Input a natural number A: ";

cin >> a;

cout << "Input a natural number B: ";

cin >> b;

cout << "Rev(Rev(A) + Rev(B)) = " << Rev(Rev(a) + Rev(b));

}

unsigned long int Rev(unsigned long int x) {

unsigned long int numb = 0;

while (x != 0) {

 numb = (numb + x % 10) * 10;

 x /= 10;

}

return numb / 10;

}

/* Форматирование, скорее всего, не сохранится, поэтому прикрепляю .cpp файл */

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  Writeln(s.Inverse)
end.

Пример
Я пишу программу на языке Паскаль
ьлаксаП екызя ан уммаргорп ушип Я

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку:');
  Write('Введите два символа СЛИТНО для сравнения их частоты: ');
  var ab:string;
  Readln(ab);
  var a:=ab[1];
  var b:=ab[2];
  var ka:=0;
  var kb:=0;
  for var i:=1 to s.Length do
    if s[i]=a then ka+=1
    else if s[i]=b then kb+=1;
  if ka>kb then Writeln('Символ ',a,' встречается чаще, чем ',b)
  else
    if ka<kb then Writeln('Символ ',a,' встречается реже, чем ',b)
    else
      if ka<>0 then Writeln('Символы ',a,' и ',b,' встречается одинаково')
      else Writeln('Символы ',a,' и ',b,' отсутствуют')
end.

Пример
Введите строку: а роза упала на лапу азора
Введите два символа СЛИТНО для сравнения их частоты: ао
Символ а встречается чаще, чем о