Question

Pascal ABC
while 7
Дано целое число N (>1). Найти наименьшее целое положительное число K, квадрат которого превосходит N:K^2 меньше или равно N. Функцию извлечения квадратного корня не использовать.

Answer 1

Var n, k, c : integer; Begin Readln (n) ; K:=0; While c