Решите задачу на языке Pascal, применяя цикл с предусловием

Дано целое положительное число N. Найти наименьшее целое положительное число K, квадрат которого превосходит N. Функцию извлечения квадратного корня не использовать.

Question

Информатика

Грета

24 июля, 18:08

Решите задачу на языке Pascal, применяя цикл с предусловием

Дано целое положительное число N. Найти наименьшее целое положительное число K, квадрат которого превосходит N. Функцию извлечения квадратного корня не использовать.

+3

Ответы (2)

Знаешь ответ?

Гермес · Answer 1

Program n1;

var n, k, i: integer;

begin

write ('Введите n: ');

readln (n);

k:=0;

while k*k
writeln (k);

end.

Флорентина · Answer 2

Var lf, rt, n, k: integer;

begin

write ('N = '); readln (n);

lf:=1; rt:=n;

while (lf+1
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