С клавиатуры вводится натуральное число n выясните является ли оно квадратом какого то натурального числа если является то выведите это число если нет то вывести -1 например 4 является квадратом 2 а 17 не является квадратом никакого числа.
Answers & Comments
leon123
Var n,i,result:Integer; Begin Read(n); result:=-1; for i:=1 to n do if (i*i=n) then begin result:=i; break; end; Writeln(result); end.
Answers & Comments
n,i,result:Integer;
Begin
Read(n);
result:=-1;
for i:=1 to n do
if (i*i=n) then
begin
result:=i;
break;
end;
Writeln(result);
end.