Вопрос школьника по предмету Информатика
Решите задачу на языке Pascal, применяя цикл с предусловием
Дано целое положительное число N. Найти наименьшее целое положительное число K, квадрат которого превосходит N. Функцию извлечения квадратного корня не использовать.
Ответ учителя по предмету Информатика
var lf,rt,n,k: integer;
begin
write(‘N = ‘); readln(n);
lf:=1; rt:=n;
while (lf+1<rt) do
begin
k:=(lf+rt) shr 1;
if k*k>n then rt:=k
else lf:=k;
end;
writeln(‘k = ‘,rt);
end.
Ввод — вывод
N = 139847
k = 374
Похожие вопросы от пользователей