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

Question

Информатика

Нюраха

29 апреля, 22:38

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

+1

Ответы (1)

Знаете ответ?

Фортунат · 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.