Ответы
Ответ дал:
0
var
n,i:Integer;
Begin
Read(n);
for i:=1 to n do
if (i*i>n) then
begin
Writeln(i);
break;
end;
end.
n,i:Integer;
Begin
Read(n);
for i:=1 to n do
if (i*i>n) then
begin
Writeln(i);
break;
end;
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад