Pascal ABC while 7 Дано целое число N (>1). Найти наименьшее целое положительное число...

Question

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

Comments

program asd_;uses crt;var n, k, c : integer; BEGINclrscr; writeln('введите N'); readln(n); k:=0; while c<n do begin k:=k+1; c:=k; c:=c*c; end; writeln(k);END.

Answer 1

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