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

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

Question

Информатика

Валюша

13 июня, 07:23

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

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

+3

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