Дано целое число N (> 0). Найти наименьшее целое положительное число K, квадрат которого превосходит N: K^2> N. Функцию извлечения квадратного корня не использовать.
Var n,k,i:integer; begin Write('Введите натуральное n: '); Readln(n); if n<4 then k:=2<br> else begin i:=1; k:=1; while i<=n do begin n:=n-i; i:=i+2; inc(k) end;<br> end; Writeln('k=',k) end.
Спасибо большое Вам
Использован простейший алгоритм оценки целой части квадратного корня: вычитаем из аргумента по порядку от 1 все нечётные числа, пока остаток не станет меньше очередного вычитаемого числа. Результат равен количеству вычитаний.
Пожалуйста
А что значит inc(k) ?
k:=k+1. Стандартный оператор языка Паскаль.
Спасибо