Var i, a: integer; x: array[1..15] of integer; begin write('Введите a: '); readln(a); write('Массив: '); for i := 1 to 15 do begin x[i] := random(20); write(x[i], ' '); end; write(#10, 'Элементы < a: '); for i := 1 to 15 do if(x[i] < a) then write(x[i], ' '); end.
1) Логическое умножение или конъюнкция (логическое И): Конъюнкция - это сложное логическое выражение, которое считается истинным в том и только том случае, когда оба простых выражения являются истинными, во всех остальных случаях данное сложеное выражение ложно. Обозначение: F = A & B. Таблица истинности для конъюнкции A&B=F 1&1=1 1&0=0 0&1=0 0&0=0 2) Логическое сложение или дизъюнкция (логическое ИЛИ): Дизъюнкция - это сложное логическое выражение, которое истинно, если хотя бы одно из простых логических выражений истинно и ложно тогда и только тогда, когда оба простых логических выраженныя ложны. Обозначение: F = A + B. Таблица истинности для дизъюнкции A+B=F 1+1=1 1+0=1 0+1=1 0+0=0 3) Логическое отрицание или инверсия (логическое НЕ): Инверсия - это сложное логическое выражение, если исходное логическое выражение истинно, то результат отрицания будет ложным, и наоборот, если исходное логическое выражение ложно, то результат отрицания будет истинным. Другими простыми слова, данная операция означает, что к исходному логическому выражению добавляется частица НЕ или слова НЕВЕРНО, ЧТО. Таблица истинности для инверсии A неА 1 0 0 1
@ впервые показали в начале 15 века. Испанские купцы пользовались таким знаком для обмеривания товара. Мера использовалась при покупке скота или вина,это своеобразное сокращение от " arroba",полного названия этой меры. Дальше этот знак использовался в качестве ценника ,а также,пометки для отчётов бухгалтеров. Только после столь длительного пути,этот знак оказался на наших клавиатурах. Рэй Томлинсон стал первым кто сумел отправить настоящее электронное письмо. Электронные коммуникации начали своё развитие именно в тот момент, когда письмо передали между компьютерами-это и было первый e-mail.
x: array[1..15] of integer;
begin
write('Введите a: '); readln(a);
write('Массив: ');
for i := 1 to 15 do begin
x[i] := random(20);
write(x[i], ' ');
end;
write(#10, 'Элементы < a: ');
for i := 1 to 15 do if(x[i] < a) then write(x[i], ' ');
end.