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

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

Question

Информатика

Валюша

30 сентября, 19:28

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

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

+5

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