решить разветвляющийся алгоритм по ифнорматике​

ответ: Я так понимаю, никто не давать ответы на такие вопросы :D

1.

#include <iostream>

using namespace std;

int main()

{

   long long i = 35, j = 31, sum = 0;

   while(i)

   {

       if(j % 2)

       {

           sum += j;

           i--;

       }

       j++;

   }

   cout << sum << endl;

   return 0;

}

ответ: 2275

2.

#include <iostream>

using namespace std;

int main()

{

   unsigned long long i = 35, j = 38, sum = 1;

   while(i--)

   {

       sum *= j;

       j++;

   }

   cout << sum << endl;

   return 0;

}

ответ: 9776069387944460288

3.

#include <iostream>

using namespace std;

int main()

{

   long long n, i = 1, n1, ans = 0;

   cin >> n;

   n1 = n/2;

   while(i <= n1)

   {

       if(!(n % i))

           ans++;

       i++;

   }

   cout << ans << endl;

   return 0;

}

4.

#include <iostream>

using namespace std;

int main()

{

   long long m, k, ans = 0;

   cin >> m >> k;

   for(; m <= k; m++)

       if(m % 5 == 0)

       ans++;

   cout << ans << endl;

   return 0;

}

Объяснение:

Const n=20;
var a: array[1..20] of integer = ( 20, 9, 24, 12, 23, 24, 21, 17, 1,
                  15, 25, 8, 21, 2, 6, 4, 12, 16, 8, 13);            
    i,j,k: integer;
begin
  for i:=1 to n-1 do
  for j:=i+1 to n do
  if a[j]<a[i] then swap(a[i],a[j]);
  writeln('отсортированный массив: ');
  for i:=1 to n do write(a[i],' ');
  writeln;
  k:=0;
  i:=1; j:=2;
  repeat
    if a[j]-a[i]>=3 then
    begin
      writeln('пара: ',a[i],' ',a[j]);    
      i:=j;
      inc(k);
    end;  
    inc(j);
  until j>n;
  writeln('количество солдат:k+1);
end.

отсортированный массив: 
1 2 4 6 8 8 9 12 12 13 15 16 17 20 21 21 23 24 24 25 
пара: 1 4
пара: 4 8
пара: 8 12
пара: 12 15
пара: 15 20
пара: 20 23
количество солдат: 7