Составьте программу если число положительное то извлеките из него квадратный корень в другом случяе возведите его в квадрат (если оно отрицательное)
На паскаль?
Program z123;var a:real;beginreadln(a); //Вводим числоIf a>0 then //Проверяем a:=Sqrt(a) //Вычисляем else a:=Sqr(a); //Вычисляемwriteln(a); //Выводимend.
