Составььте алгоритм который отрицательное число возводит в квадрат , а из положительного...

Question

Составььте алгоритм который отрицательное число возводит в квадрат , а из положительного числа вычисляет квадратный корень.

Comments

Блок-схему? Программу?

---

Программу

---

Только быстрее пожалуйста.

---

Очень срочно

---

На Паскале?

---

Да

Answer 1

Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A<0 then Write(A*A)<br>else Write(sqrt(A))
End.