Для риття котловану об'ємом 1350 м3 будівельники отримали три екскаватори. Потужна машина продуктивністю 25.5 м3/год витрачає за годину 10 л бензину.
Характеристики середнього екскаватора − 10 м3/год і 3.3 л/год, малого − 5 м3/год і 2
л/год. Машини можуть працювати всі одночасно. Запас бензину у будівельників
обмежений і дорівнює 540 л. Якщо рити котлован тільки малим екскаватором, то
бензину вистачить, але процес виявиться довгим. Яким чином слід використовувати
наявну техніку, щоб виконати роботу при найменшому загальному часі роботи всіх
екскаваторів?
РЕШИТЬ ЗАДАЧУ НУЖНО С ПОИСК РЕШЕНИЯ В ЕКСЕЛЬ
ответ: 1 - C, 2 - B, 3 - B, 4 - B, 5 - B, 6 - C, 7 - B, 8 - B, 9 - C, 10 - D, 11 - A, 12 - B, 13 - B, 14 - B, 15 - D, 16 - C, 17 - B, 18 - D, 19 - C, 20 - B, 21 - D, 22 - B, 23 - B, 24 - C
Объяснение:
1. Предмет информатики — это накопления, хранения, обработки, передачи информации;
2. Тройками из нулей и единиц можно закодировать 8 различных символов.
3. Капитан спрашивает матроса: «Работает ли маяк?» Матрос отвечает: «То загорается, то погаснет!» Чем является маяк в этой ситуации? - источником информации.
4. В каком веке появились первые устройства выполнять арифметические действия? - В XVII в.
5. Механическое устройство, позволяющее складывать числа, изобрел Б. Паскаль.
6. Для какой системы счисления были при первые семикосточковые счеты? - для десятичной;
7. Какое устройство в России получило название «железный Феликс»? - механический арифмометр;
8. В какие годы XX столетия появилась первая электронно-счетная машина? - в 40-е;
9. В каком поколении машин ввод данных можно осуществлять с речи? - 4-м;
10. Архитектура компьютера — это описание устройства и принципов работы компьютера, достаточное для понимания пользователя.
11. Что такое микропроцессор? - Интегральная микросхема, которая выполняет поступающие на ее вход команды (например, вычисление) и управляет работой машины;
12. Подключение отдельных периферийных устройств компьютера к магистрали на физическом уровне возможно с контроллера;
13. Внешняя память необходима для для долговременного хранения информации после выключения компьютера;
14. Для построения с компьютера сложных чертежей в системах автоматизированного проектирования используют графический планшет (дигитайзер);
15. К устройствам накопления информации относится ВЗУ.
16. Что из перечисленного не относится к программным средствам? - процессор;
17. Файлом называется поименованная область на диске или другом машинном носителе;
18. В каком файле может храниться рисунок? - CREML.BMP.
19. Могут ли два каталога 2-го уровня иметь одинаковые имена? - да, если они принадлежат разным каталогам 1-го уровня;
20. Необходимым компонентом операционной системы является командный процессор;
21. Что такое система счисления? - это знаковая система, в которой числа записываются по определенным правилам, с знаков некоторого алфавита, называемых цифрами.
22. Какие системы счисления не используются специалистами для общения с ЭВМ? - троичная;
23. Что называется основанием системы счисления?» - отношение значений единиц соседних разрядов;
24. Все системы счисления делятся на две группы: позиционные и непозиционные;
// PascalABC.Net 3.0, сборка 1066
procedure CheckString(var s:string; var n:integer);
var
i:integer;
begin
i:=Length(s);
while i>0 do begin
if not(s[i] in ['a'..'z']) then Delete(s,i,1);
Dec(i)
end;
n:=Length(s)
end;
var
s1,s2:string;
i,p,n1,n2:integer;
begin
Write('Введите первую строку: '); Readln(s1);
CheckString(s1,n1);
if n1=0 then Writeln('Введенная строка не содержит допустимых символов')
else begin
Write('Введите вторую строку: '); Readln(s2);
CheckString(s2,n2);
if n2=0 then Writeln('Введенная строка не содержит допустимых символов')
else
{ теперь обе строки содержат только маленькие латинские буквы }
if n1=n2 then begin
for i:=1 to n1 do begin
p:=Pos(s1[i],s2);
if p=0 then Break
else Delete(s2,p,1)
end;
if Length(s2)=0 then Writeln('Решение имеется')
else Writeln('Решения нет')
end
else
Writeln('Решения нет');
end
end.
Тестовое решение:
Введите первую строку: this is my own deal!
Введите вторую строку: Тест: *is now=l2ead my sthi?
Решение имеется
Также имеется современное решение, которому пока что в школах не учат:
// PascalABC.Net 3.0, сборка 1066
begin
var s1:=ReadString('Введите первую строку: ').Where(x->x in ['a'..'z']);
if s1.Count=0 then
Writeln('Введенная строка не содержит допустимых символов')
else begin
var s2:=ReadString('Введите вторую строку: ').Where(x->x in ['a'..'z']);
if s2.Count=0 then
Writeln('Введенная строка не содержит допустимых символов')
else
if s1.Except(s2).Count>0 then Writeln('Решения нет')
else Writeln('Решение имеется')
end
end.