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

Question

Информатика

Вероника

29 апреля, 19:59

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

+3

Ответы (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.