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

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

Question

Информатика

Декабринка

25 февраля, 14:14

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

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

+1

Ответы (2)

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

Савватия · Answer 1

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

Анжела · Answer 2

Program n1;

var n, k, i: integer;

begin

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

readln (n) ;

k:=0;

while k*k
writeln (k) ;

end.