Решите задачу ** языке Pascal, применяя цикл с предусловием Дано целое положительное...

Question

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

Answer 1

Program n1;
var n,k,i: integer;
begin
write('Введите n: ');
readln(n);
k:=0;
while k*kwriteln(k);
end.

Answer 2

Var lf,rt,n,k: integer;
begin
  write('N = ');  readln(n);
  lf:=1;  rt:=n;
  while (lf+1  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