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

Question

Информатика

Ким

20 сентября, 00:50

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

+4

Ответы (1)

Знаете ответ на вопрос?

Егоня · 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.