С клавиатуры вводится натуральное число n выясните является ли оно квадратом какого то натурального числа если является то выведите это число если нет то вывести -1 например 4 является квадратом 2 а 17 не является квадратом никакого числа.
Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад