Question

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

Answer 1

program n_1;
var N, K:integer; 
begin
writeln; 
write(' N = '); 
readln(N); K := 1;  repeat 
K:=k+1;;
until K * K > N; 
writeln; 
writeln('Ответ: ', K); 
end.