Дано целое число N (> 0). Найти наименьшее целое положительное число K, квадрат которого превосходит N: K^2 больше N

Категория: Delphi/Pascal
2013-03-20 15:07:15
code: #pascal
program while7;
  uses crt;
var 
  n,k:integer;
begin 
  clrscr;
  writeln('Введите число ');
  readln(n);
  k:=0;
while k*k < n do
  inc (k);
  writeln('Результат ',k);
  readln;
end.
Поделиться:

Похожие статьи:

теги: положительное, целое, квадрат, квадратный корень, наименьшее