цикл while

[holi]

Паскаль, задача дано целое число N>0 найти наименьшее целое положительное число К квадрат которого превосходит N. K в квадрате>N
функцию извлечения квадратного корня не использовать
плиз, товарищи, больше не к кому

наименьшее К как найти?

[Азамат Казанчев]

K:=1;
While k*k<n do begin
K:=k+1;
End;

в тхт набрал, дописывай сам

[Mad_Cat]

k:=0;
while k*k<=n do
inc(k)

[holi]

не понятно как к наименьшее выбирать
в итоге

var: n:integer;
       k:real;
begin
readln(n);
k:=0
while k*k>n do  
inc (k);
begin
end;
writeln (k)
end.

не работает



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[evg_m]

не работает

Надо быть внимательнее к операторам.
</>/<=

[Serge_Bliznykov]

и пост #2 и пост #3 - дан правильный рабочий вариант!
Что Вас не устраивает, собственно?!

вот полный текст "программы":

var: k, n:integer;
begin
  readln(n);
  k:=0;
  while (k*k)<=n do  
     inc (k);

  writeln (k);
  readln;
end.

и нечего больше мудрить!