Question

Напишите программу, которая получает с клавиатуры натуральное число и вычисляет целый квадратный корень из него – наибольшее число, квадрат которого не больше данного числа. Язык-PascalABC

Answer 1

var

 n, s: Integer;

begin

   Write ('Введите натуральное число: ');

   Read (n);

   s := trunc (sqrt (n));

   Writeln ('Целый квадратный корень из ' + IntToStr (n) + ' = ' + IntToStr (s));

   Readln;

end;

Answer 2

Для решения этой задачи в PascalABC можно воспользоваться бинарным поиском. Ниже приведена программа, которая выполняет описанную задачу:

pascalCopy code
program IntegerSquareRoot;

function SquareRoot(n: integer): integer;
var
  left, right, mid: integer;
begin
  left := 0;
  right := n;
  
  while left <= right do
  begin
    mid := (left + right) div 2;
    
    if mid * mid <= n then
      left := mid + 1
    else
      right := mid - 1;
  end;
  
  Result := right;
end;

var
  num, squareRoot: integer;
begin
  writeln('Введите натуральное число: ');
  readln(num);
  
  squareRoot := SquareRoot(num);
  writeln('Целый квадратный корень числа ', num, ' равен ', squareRoot);
end.

Эта программа определяет функцию SquareRoot, которая выполняет бинарный поиск, чтобы найти целый квадратный корень числа n. Затем программа считывает число с клавиатуры, вызывает функцию SquareRoot, и выводит результат на экран.

Обратите внимание, что когда left > right, то right будет содержать наибольший квадратный корень числа n, поэтому функция возвращает right.