Question

дано целое число N (>0). найти наименьшее целое положительное число K, квадрат которого превосходит N: K^2>N. функцию извлечения квадратного корня не использовать

Answer 1

Последовательно показала ;)

Answer 2

Var k,n:integer;
begin
readln(n);
k:=1;
while n>=k*k do
k:=k+1;
writeln(k);
end.