3. часы и рубли (=100 )
в файле данных содержатся 4 числа, например: 1 45 94 13, которые означают числа часа, минут, рублей и копеек. вставить эти данные в текст следующим образом «в 1 час 45 минут одинцов пересчитал свой капитал: 94 рубля 31 копейка». значения часа могут находиться в пределах от 0 до 24, минут – от 0 до 59 (причем, в случае 0 должно выдаваться сообщение «столько-то часов ровно»), рублей – от 0 до 99 (причем, в случае 0 не должно выдаваться сообщение о рублях), копеек – от 0 до 99 (причем, в случае 0 должно выдаваться сообщение «столько-то рублей ровно»). если же рублей и копеек нет, то выдается сообщение «ничего».
, , надо на python.

#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.