Question

Вычислить значение модуля квадратного корня заданного трёхзначного числа.

Answer 1

Program n1;
Uses CRT;
Const n=7;
Var a: integer; x: real;
begin
readln(a);
x:=abs(sqrt(a));
writeln(x:4:4);
readln
end.