Даны два числа. Если первое число нечетное, то найти сумму кубов, а иначе - куб суммы.      даны три числа. Если хотя бы одно из чисел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.   Даны три числа. Если произведен...

Уже писал, но попал в баг( Так вот. В паскале это будет так: 1)var a,b,c:integer; begin          readln(a,b);          if a div 2 =0 then c:=(a+b)*(a+b)*(a+b);                               else c:=a*a*a+b*b*b;          writeln(c); end. 2)var a,b,c:integer;           d:real; begin           readln(a,b,c);           if (a<0) or (b<0) or (c<0) then d:=abs(a+b+c)                                                        else d:=sqrt(a+b+c);          writeln(d:0:2); end. 3)var a,b,c:integer; begin           readln(a,b,c);           if (a*b*c<0) then begin a:=a*a; b:=b*b; c:=c*c; end                                else begin a:=abs(a); b:=abs(b); c:=abs(c); end;           writeln( a, ' ', b, ' ', c); end. Вот так вот.