Сколько книг размером в 512 кбайт можно разместить на компакт-диске ёмкостью 700 мб

1 Мб = 1024 Кб

Размер книги = 512 Кб
Ёмкость компакт-диска = 700 Мб = 716800 Кб
Ск-ко можно разместить ?



Отв.: 1400 книг.

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