Дано целое число N (>0). найти наименьшее целое положительное число K, квадрат которого превосходит N: K^2>N. функцию извлечения квадратного корня не использовать
Последовательно показала ;)
это с помошью while она решается?просто есть меньше решение.
Var k,n:integer; begin readln(n); k:=1; while n>=k*k do k:=k+1; writeln(k); end.
респект.я так и сделал)
я вообще офигел от решения предыдущего человека
ага.
если шаришь помоги еще с одной програмой у меня в вопросах.буду благодарен