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

Question

Информатика

Леха

3 ноября, 11:02

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

+1

Ответы (1)

Знаете ответ на вопрос?

Светуня · Answer 1

Var

n, k, i:integer;

begin

Write ('Введите натуральное n: ') ; Readln (n) ;

if n<4 then k:=2

else begin

i:=1; k:=1;

while i<=n do begin n:=n-i; i:=i+2; inc (k) end;

end;

Writeln ('k=', k)

end.