Вариант 1 а. а Задание 1. Подсчитайте, сколько битов в 2 Кбайтах. Задание 2. Составьте правильное определение Операционная система (записать номера словосочетаний в нужном порядке в строку) Операционная система - это 1. к его ресурсам. 2. совместное функционирование 3. набор программ, 4. и предоставляющих доступ 5. обеспечивающих 6. всех устройств компьютера Задание 3 Вставьте пропущенное слово. 1. После установки файлы операционной системы хранятся в долговременной памяти на жестком диске, который называется Задание 1. Выберите правильный ответ. 1. Количество тактов обработки данных, которые производит процессор за 1 секунду Частота b Разрядность Магистраль d Производительность процессора 2. физически процессор – это Пучок проводов b Большая интегральная схема с. Магистраль 3. Для оптического ввода в компьютер и преобразования в компьютерное представление изображений используется а Принтер Б. Джойстик с. Сканер d. Плоттер 4. Акустические колонки подключаются к выходу Системной платы b. Звуковой платы Процессора 5. Какое устройство лишнее? Сканер b. Плоттер с. Принтер d. Монитор 6. Это устройство часто используется вместо манипуляторов в портативных и мобильных компьютерах Сенсорная панель b Принтер Графический планшет d. Сканер 7. Для передачи «живог тео по компьютерным сетям используется а Цифровая сока b. Web-камер с Сенсорная нель 8. Разрешающая ность монит а. Количествочек, из котор оно складывается а. с. а. а с.
// PascalABC.NET 3.3, сборка 1561 от 02.11.2017 // Внимание! Если программа не работает, обновите версию!
1)
begin var (a,b):=ReadInteger2('Введите границы диапазона:'); var Всего:=b-a+1; // количество целых чисел в диапазоне var Четных,Нечетных:integer; if a.IsOdd then begin Четных:=Всего div 2; Нечетных:=Всего-Четных end else begin Нечетных:=Всего div 2; Четных:=Всего-Нечетных end; // четное a Writeln('Нечетных- ',Нечетных,', четных- ',Четных) end.
Пример Введите границы диапазона: -4 4 Нечетных- 4, четных- 5
2)
begin var (n,a,b):=ReadInteger3('Введите n,a,b:'); SeqRandom(n,a,b).Println end.
// PascalABC.NET 3.3, сборка 1562 от 02.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var ИсходноеЧисло:=ReadlnString('Введите исходное целое число:'); var МассивЦифрЧисла:=ИсходноеЧисло.ToCharArray; var МестоМаксЦифры:=МассивЦифрЧисла.IndexMax; var МестоМинЦифры:=МассивЦифрЧисла.IndexMin; If МестоМинЦифры>МестоМаксЦифры then Swap(МестоМинЦифры,МестоМаксЦифры); ИсходноеЧисло:=ИсходноеЧисло?[:МестоМинЦифры+1]+ ИсходноеЧисло?[МестоМаксЦифры+2:]; Writeln('Результат замены: ',ИсходноеЧисло) end.
Пример Введите исходное целое число: 1402956387 Результат замены: 1456387
// Внимание! Если программа не работает, обновите версию!
1)
begin
var (a,b):=ReadInteger2('Введите границы диапазона:');
var Всего:=b-a+1; // количество целых чисел в диапазоне
var Четных,Нечетных:integer;
if a.IsOdd then begin Четных:=Всего div 2; Нечетных:=Всего-Четных end
else begin Нечетных:=Всего div 2; Четных:=Всего-Нечетных end; // четное a
Writeln('Нечетных- ',Нечетных,', четных- ',Четных)
end.
Пример
Введите границы диапазона: -4 4
Нечетных- 4, четных- 5
2)
begin
var (n,a,b):=ReadInteger3('Введите n,a,b:');
SeqRandom(n,a,b).Println
end.
Пример
Введите n,a,b: 15 -10 35
19 33 -10 4 5 -10 10 21 17 21 14 21 24 23 18