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

Предыдущий
вопрос Следующий
вопрос

Program FindK;

var
N, K: Integer;

begin
writeln('Введите целое число N (>1): ');
readln(N);

K := 1;
while K * K <= N do
begin
K := K + 1;
end;

writeln('Наименьшее целое положительное число K, квадрат которого превосходит N: ', K);
end.