Дано целое число Извлечь квадратный корень.

Question

Дано целое число
Извлечь квадратный корень.

Answer 1

Var a, z:longint;
Begin
Writeln('Введите любое целое число a');
Readln(a);
z:=sqrt(a);
Writeln('Квадратный корень из числа а равен: : ,z);
End.