Дано два числа, меньшее из них заменить на утроенное произведение, а из большего вычесть квадратный корень. Новые числа вывести на экран.
Answers & Comments
Giammy
Vara,b,c:real;begin readln(a,b); if a>=b then begin b:=b*b*b; a:=sqrt(a); end else begin a:=a*a*a; b:=sqrt(b); end; writeln(a:0:0,' ',b:0:0); readlnend.
Answers & Comments