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

Question

Информатика

Васа

12 января, 08:37

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

+1

Ответы (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.