Решите задачу на языке Pascal, применяя цикл с предусловием
Дано целое положительное число N. Найти наименьшее целое положительное число K, квадрат которого превосходит N. Функцию извлечения квадратного корня не использовать.

Вопрос школьника по предмету Информатика

Решите задачу на языке Pascal, применяя цикл с предусловием
Дано целое положительное число N. Найти наименьшее целое положительное число K, квадрат которого превосходит N. Функцию извлечения квадратного корня не использовать.

Ответ учителя по предмету Информатика

var lf,rt,n,k: integer;

begin

  write(‘N = ‘);  readln(n);

  lf:=1;  rt:=n;

  while (lf+1<rt) do

  begin

    k:=(lf+rt) shr 1;

    if k*k>n then rt:=k

    else lf:=k;

  end;

  writeln(‘k = ‘,rt);

end.

Ввод — вывод

N = 139847

k = 374