даны 2 числа наименьшее из их возвести в куб из большего

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (a, b) := ReadReal2('Введите два числа:');

 Println(Min(a, b) ** 3, Sqrt(Max(a, b)))

end.

Пример

Введите два числа: -35.26 152

-43837.615576 12.328828005938

//c++

include lt;iostreamgt;
include lt;cmathgt;
using std::cout;
using std::cin;
using std::endl;

int fun(int val1, int val2)

cout lt;lt; "max = " lt;lt; val1 lt;lt; endl;
cout lt;lt; "min = " lt;lt; val2 lt;lt; endl;
cout lt;lt; val1 lt;lt; "^3 = " lt;lt; val1 * val1 * val1 lt;lt; endl;
cout lt;lt; "" lt;lt; val2 lt;lt; " = "lt;lt; sqrt(val2) lt;lt; endl;


int main()

int val1,val2;
cin gt;gt; val1 gt;gt; val2;
if(val1 gt; val2)

fun(val1, val2);
else
fun(val2, val1);


return 0;