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

Question

Витяхя

6 января, 23:47

+5

Ответы (1)

Знаете ответ на вопрос?

Неля · Answer 1

Var

A:integer;

Begin

Write ('A = ') ; ReadLn (A) ;

if A<0 then Write (A*A)

else Write (sqrt (A))

End.