Решите на языке pascal, применяя цикл с предусловием дано целое положительное число n. найти наименьшее целое положительное число k, квадрат которого превосходит n. функцию извлечения квадратного корня не использовать.

Program n1;
var n,k,i: integer;
begin
write('Введите n: ');
readln(n);
k:=0;
while k*k<n+1 do k:=k+1;
writeln(k);
end.

Var lf,rt,n,k: integer;
begin
  write('N = ');  readln(n);
  lf:=1;  rt:=n;
  while (lf+1<rt) do
  begin
    k:=(lf+rt) shr 1;
    if k*k>n then rt:=k
    else lf:=k;
  end;
  writeln('k = ',rt);
end.

Ввод - вывод

N = 139847
k = 374

#include <iostream>

using namespace std;

int main()

{

   int x;

   cout << "Введите значение X: ";

   cin >> x;

   if (x >= -4 && x <= 1)

   {

       cout << "1";

   }

   else

   {

       cout << "0";

   }

}

Объяснение:

#include <iostream> // Библиотека ввода - вывода

using namespace std; // Пространство имён

int main()

{

   int x; // Создание целочисленной переменной x

   cout << "Введите значение X: "; // Вывод сообщения в консоль

   cin >> x; // Вводим значение с клавиатуры

   if (x >= -4 && x <= 1) // Если значение переменной x ≥ -4 И ≤ 1

   {

       cout << "1"; // Выводим 1

   }

   else // Иначе

   {

       cout << "0"; // Выводим 0

   }

}

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
    begin
        writeln('I');
        var n := ReadInteger('n=');
        Writeln((1 + 1 + Power(2, n - 1)) * n / 2);
    end;
    
    begin
        writeln;
        writeln('II');
        var n := ReadInteger('n=');
        Writeln(n mod 11 = 0 ? 'YES' : 'NO');
        
    end;
    
    begin
        writeln;
        writeln('III');
        var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
        writeln;
        
        while a.Any() do
        begin
            write(a[0], ' ');
            a.RemoveAt(0);
            if not a.Any then break;
            
            write(a.Last, ' ');
            a.RemoveAt(a.Count - 1);
            if not a.Any then break;
            
            var n := 0;
            if a.Count > 1 then n := a.Count div 2 - 1;
            write(a[n], ' ');
            a.RemoveAt(n);
        end;
    end;
end.