Вычислить произведение: (1 + sin2 )*(2 + sin3 )*... (n сомножителей).
n – вводится вручную
Написать три варианта программы, с трёх разных циклов.

Напишу основные идеи на языке Си,но преобразовать несложно Вам будет.

 

1.  int N,c1,c2,razn,chastn;

     scanf ("%d",&N); // запрашиваем двузначное число

     

    c1=N%10;
     N/=10;

     c2=N%10;  

      razn=c2-c1;  chastn=c2/c1;

2. int Z;

     

     if (Z>0)  Z=Z+1;

     if (Z==0) Z=10;

3. int  Z, c_right, c_left;

      

     c_right=Z%10;

      Z=Z/10;    

     c_left=Z%10;

4. int Z;

     if  ( Z%2==0 ) четное ;

     else нечетное ;

5. int a,b,sum ; //имеем ввиду a<b

 

     do

        { a=a+1;

           sum=sum+a;

         }

        while (a!=b-1); //  (a!=b) - если от а до Б включительно

 

Как то так. Если возникнут вопросы- пишите :)

 

      

       

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(100,-20,20); a.Println;
  WritelnFormat('Положительных {0}, отрицательных {1}',
    a.Where(x->x>0).Count,a.Where(x->x<0).Count)
end.

Тестовое решение:
-19 12 19 -17 -5 10 -13 -2 -4 16 -6 -12 -3 5 -3 -6 -1 8 -19 -14 -1 9 -10 20 -7 20 5 17 -7 11 -5 -14 -19 -18 16 13 11 -2 -3 9 1 11 10 -13 8 -14 -15 -13 8 5 -7 20 -20 18 2 -8 2 19 10 -5 -15 -10 -16 5 1 -12 -14 -6 9 5 3 -20 -9 -7 6 9 20 -18 -8 -13 14 -3 -11 9 -3 -5 -15 -16 0 4 -10 12 8 -19 4 -10 6 -15 7 0
Положительных 44, отрицательных 54