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

Question

Информатика

Нинуля

29 сентября, 23:56

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

+3

Ответы (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.