накиньте идею

[92Edik]

Дано целое число&nbsp N (>0). Найти наименьшее целое положительное число K, квадрат которого превосходит N:К(квадрат)>N. Функцию извлечения квадратного корня не использовать.

[maLoy*508]

что то типо этого:

for i:=1 to n do
 begin
 if (i*i>n) then
 writeln('число: ',i);
 end;

[92Edik]

а как через while??

[Alex11223]

число K, квадрат которого превосходит N:К(квадрат)>N

Что? Число К, квадрат которого больше N? т.е. K²>N?
Если да, то как-то так.

s:=0;
i:=1;
while (s = 0) do
begin
   if (i*i > n) then s:=i;
   i:=i+1;
end;

Но зачем через while?

[maLoy*508]

да в любой книжке найдешь...

while i<=n do
 begin
  if (i*i>n) then
  writeln('число: ',i);
  inc(i);
 end;

[92Edik]

задание такое

[Alex11223]

while i<=n do

В условии же просят найти наименьшее, а не все при i ≤ N.