Составььте алгоритм который отрицательное число возводит в квадрат , а из положительного числа вычисляет квадратный корень.
Составььте алгоритм который отрицательное число возводит в квадрат , а из положительного числа вычисляет квадратный корень.
Ответ(ы) на вопрос:
Гость
Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A<0 then Write(A*A)
else Write(sqrt(A))
End.
Не нашли ответ?
Похожие вопросы