Питання до білетів 1i курс. 1. основні пристрої комп' ютера, їх взаемодія. 2. операційна система, що таке системиий диск ? 3. жорсткий диск. використання дискового простору, 4. як закодовано інформацію 5. операційна система .що таке ядро операційної системи ? 6. операційна система. програми драйвери. 7 на диску ? що таке програма резидент ? 8 процесор, його структура та призначення. процесор ibм. вінчестер, його структура, призначення та характеристика. 10. кодувания інформації в еом. 11. що відбувасться під час завантаження комп' ютера? 12. програми архіватори. 13. biруси. 14. службові програми. дефрагментація диску. 15. службові програми. сканування диску. 16. двійковий код, його призначення. 17. електронні таблиці, їх використани в бухгалтерському обліці. 18. excel. xарактеристика програмного продукту. 19. ассes. характеристика програмного продукту. 20. назвіть основні етапи створення баз даних. 21. бази даних , іх структура. 22. типи баз даних. 23. електронний диск, його призначення. 24. оперативна пам'ять, її функції. 25. структура оперативної пам'яті. 26. постійний запам'ятовуючий пристрій, його функції. 27. конфігупація еом. 28. форматування носіїв інформації. 29. графічний інтерфейс. 30. розрядність процесора. 31. файл, його ім'я і розширення. 32. мови програмування, транслятори та інтерпритатори. 33. програми динамічної компресії.

Задание 1

#include <iostream>

#include <string>

using std::cout;

using std::cin;

using std::endl;

int main()

{    

       int arr[10];  //если у тебя дни недели то заменяй int на string

       // Заполняем массив с клавиатуры

       for (int i = 0; i < 10; i++) {

           cout << "[" << i + 1 << "]" << ": ";

           cin >> arr[i];

       }

       // И выводим заполненный массив.

       cout << "\nВаш массив: ";

       for (int i = 0; i < 10; ++i) {

           cout << arr[i] << " ";

       }

       cout << endl;

       return 0;

}

Объяснение:

                                     PascalABC.NET                                       function ToBinary (x:integer):string; beginif (x>0) then ToBinary := ToBinary(x div 2) + (x mod 2).ToString;end; function FromBinary (x:string):integer; beginif (x.Length>0) then FromBinary := FromBinary(x.Substring(1)) + x[1].ToDigit*Round(Power(2,x.Length-1));end; function func (x:integer):integer; beginvar s := ToBinary(x); loop 2 do s += s.AsEnumerable.Sum(c->c.ToDigit) mod 2; func:=FromBinary(s);end; begin Println('f(N):',func(ReadInteger('N:'))); Println('Количество:',(1..160).Count(x->func(x) in 90..160)); end.

Примечание:

Если к числу в двоичной системе счисления приписывать в конец цифры, то число увеличивается и никак не может уменьшится. Поэтому, n<f(n). Следовательно, перебор различных чисел, принадлежащих отрезку [90;160], можно смело ставить до 160 (можно и меньше, но лень расписывать вычисления).

ToBinary - функция перевода числа из десятичной СС в двоичную. Можно писать любой алгоритм, необязательно в точности использовать мой.

FromBinary - функция перевода числа из двоичной СС в десятичную. Можно писать любой алгоритм, необязательно в точности использовать мой.

func - функция, которая выполняет преобразования числа согласно условию (пункты 1, 2, 3, 4).

Код кажется большим только из-за процедур и begin/endов. Без них - всего то 7 строчек :). В скринах можно проверить, действительно ли 19 (40-22+1).

Пример работы: