C++ найти частное произведений четных и нечетных цифр четырехзначного числа.

#include < iostream> /* main program function */ int main() {   int     imuleven = 1,     imulodd = 1,     inumber;   char cmask = 0;   std: : cin > > inumber;   if (inumber > 9999 || inumber < 1000)   {     std: : cout < < "error! input the correct number! " < < std: : endl;     return 0;   }       for (int i = 0; i < 4; i++)   {     int iend = inumber % 10;     if (iend % 2 == 0)       imuleven *= iend, cmask |= 1;     else       imulodd *= iend, cmask |= 2;     inumber /= 10;   }   if (cmask == 3)       std: : cout < < static_cast< double> (imuleven) / imulodd < < std: : endl;   else if (cmask == 1)     std: : cout < < "there is no odd digits exists." < < imuleven < < std: : endl;   else     std: : cout < < "there is no even digits exists."  < <   imulodd  < < std: : endl;   return 0; } /* end of the 'main' function */

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

var s,a,i: real;

begin

  repeat

      writeln("вес следущего пасажира kg");

      read(a);

      s: =s+a;

      if s< 8000 then

          i: =i+1;

  until s> =8000

  writeln(i);

end.

 

var b,a,i: real;

begin

  read(a,b);

  repeat

      a: =a+a*0.03;

      i: =i+1;

  until a> =b

  writeln(i);

end.

 

var i,s: integer;

begin

  for i: = 1900 to 1999 do begin

        s: =s+365;

        if (i mod 400=0) or ((i mod 4 = 0) and (i mod 100< > 0)) then

            s: = s+1;

  end;

  writeln(s);

end.