Question

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

Answer 1

Ответ:

var N, K2: integer;

begin

 K2 := 1;

 write('N = '); readln(N);

 while K2*K2 <= N do inc(K2);

 writeln(K2);

end.