Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.