ано целое число N (>0). найти наименьшее целое положительное число K, квадрат которого превосходит N: K^2>N. функцию извлечения квадратного корня не использовать. Решить через repeat
Answers & Comments
nickitastalmakp0nvew
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.
Answers & Comments
var N, K:integer;
begin
writeln;
write(' N = ');
readln(N); K := 1; repeat
K:=k+1;;
until K * K > N;
writeln;
writeln('Ответ: ', K);
end.