Вариант 4 1) Запишите следующие высказывания в виде логического выражения, определив
простые высказывания и используя логические операции:
а) На уроке физики ученики выполняли практическую работу и решали задачи.
б) В библиотеке можно взять книгу или встретить друзей.
в) Неверно, что все медведи — бурые.
2) Даны высказывания А = «7*8=54», B = «7+15=22». Определите истинность
высказываний:
1) А; 2) В;
4) AvВ; 5) А;
6) A&B.
3) В:
3)
4) Для какого числа X истинно высказывание: не ((X > 12) v (Х<- 5))?
1) -6; 2) -5; 3) 12; 4) 13.
4) Для какого высказывания истинно высказывание:
Первая буква имени гласная & Последняя буква имени согласная.
1) Никита;
2) Константин;
3) Антон; 4) Илья.
6) Три школьника, Паша, Толя и Саша, остававшиеся в классе на перемене, были
вызваны к директору по поводу разбитого в это время окна в кабинете. На вопрос
директора о том, кто это сделал, мальчики ответили следующее.
Паша: «Я не бил окно, и Толя тоже...»
Толя: «Паша не разбивал окно, это Саша разбил футбольным мячом!»
Саша: «Я не делал этого, стекло разбил Паша».
Стало известно, что каждый из ребят один раз сказал чистую правду, а второй раз
соврал, Зная это, директор смог докопаться до истины. Кто разбил стекло в классе?
По каналу связи непрерывно в течении 10 часов передаются данные. Скорость передачи данных в течении первых 6 часов составляет 512 Кбит в секунду, а остальное время - в два раза меньше. Сколько Мбайт данные было передано за время работы канала?
решение:
Объём информации вычисляется по формуле Q = q * t, где t — время передачи q — cкорость передачи данных.
Учтём, что в одном часе 3600 секунд, поэтому
Q = 512 Кбит/с * 6 * 3600 с + 512 / 2 Кбит/с * (10 - 6) * 3600 с = 14 745 600 Кбит = 1 843 200 Кбайт = 1800 Мбайт.
ответ: 1800.
Напишите мне письмо, я вам прекреплю файль с решением еще задания
//Если программа не запускается, то обновите версию
function CreateArray(length: integer): array of integer;
begin
var a := new integer[length];
for var i := 0 to length - 1 do
a[i] := Random(0, 100);
// Println(a);
Result := a;
end;
begin
var arrays := new List<(char, array of integer)>();
arrays.Add(('a', CreateArray(15)));
arrays.Add(('b', CreateArray(13)));
arrays.Add(('c', CreateArray(08)));
arrays.Add(('d', CreateArray(11)));
arrays.Add(('e', CreateArray(14)));
arrays.Add(('f', CreateArray(10)));
arrays.Add(('g', CreateArray(09)));
foreach var a in arrays.OrderBy(a -> a.Item2.Min()) do
begin
Println(a.Item1, a.Item2.Min());
end;
end.