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 r,l,s: real; beginwrite('r='); read(r); s: =pi*sqr(r); l: =2*pi*r; write('s=',s,'; l=',l); end.

 

var a,p: integer; beginread(a); p: =(a mod 10)*(a div 100)*(a mod 100 div 10); write(p); end.

 

var a,b,c,min: integer; beginwriteln('введи 3 числа'); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln(3*min: 4); readln; end.

паскаль

откомпилирован в: pascal abc

 

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.