Question

С клавиатуры вводится натуральное число n выясните является ли оно квадратом какого то натурального числа если является то выведите это число если нет то вывести -1 например 4 является квадратом 2 а 17 не является квадратом никакого числа.

Answer 1

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.