Question

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

Answer 1

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