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

Question

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

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.