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

Question

Информатика

Андрея

29 сентября, 18:21

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

+3

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