Выбери ответ. Информационно-коммуникационная технология — 1. это совокупность разъединенных средствами связи программных и технических средств, предназначенных для обеспечения информационных процессов между объектами. 2. это информационная технология работы в сети, позволяющая людям общаться, оперативно скрывать информацию. 3. это специальный компьютер, который предназначен для удаленного запуска приложений, обработки запросов на получение информации из баз данных и обеспечения связи с общими внутренними устройствами: принтерами, модемами, устройствами чтения компакт-дисков. 4. это информационная технология работы в сети, позволяющая людям общаться, оперативно получать информацию и обмениваться ею без спама)
1) (1 & 0 ∨ 1) ∨ 0 = 1
2) 1 ∨ 0 ∨ (1 & 1) = 1
3) (0 ∨ 1) & 1 = 1
4) 0 ∨ (1 & 1) & 1 = 1
5) ((1 & 0) ∨ (1 ∨ 1)) & (0 ∨ 1) = 1
Объяснение:
1) (1 & 0 ∨ 1) ∨ 0 = (0 ∨ 1) ∨ 0 = 1 ∨ 0 = 1
2) 1 ∨ 0 ∨ (1 & 1) = 1 ∨ 0 ∨ 1 = 1 ∨ 1 = 1
3) (0 ∨ 1) & 1 = 1 & 1 = 1
4) 0 ∨ (1 & 1) & 1 = 0 ∨ 1 & 1 = 0 ∨ 1 = 1
5) ((1 & 0) ∨ (1 ∨ 1)) & (0 ∨ 1) = (0 ∨ 1) & (0 ∨ 1) = 1 & 1 = 1
Общий порядок действий:
1) скобки
2) НЕ (¬, черта над выражением) - значение противоположно исходному высказыванию
3) И (&) - истинно, когда оба исходных высказывания истинны
4) ИЛИ (∨) - ложно, когда оба исходных высказывания ложны
2. Меняется всего одна строка в программе:
program pr2;
type
student = record {объявление нового типа данных student}
LastName: string; {фамилия студента}
bal: array [1..5] of integer; {массив для 5-ти оценок}
average: real {средний студента}
end;
var
pupil: array [1..100] of student; {массив pupil (максимум из 100 элементов) типа student}
n, i, j, s: integer;{переменные целого типа}
begin
write('Введите количество студентов: ');
readln(n);
for i := 1 to n do
begin{запрос данных по n студентам}
with pupil[i] do
begin
Write('Введите фамилию студента №', i, ': '); {запрос фамилии студента под номером i}
Readln(LastName);
s := 0; {целочисленная переменная для определения суммы студента}
for j := 1 to 5 do
begin{цикл для обработки 5-ти оценок каждого студента}
write('Введите оценку за экзамен №:', j, ': ' );
readln(bal[j] );
s := s + bal[j]; {суммирование 5-ти оценок студента}
end;
average := s / 5; {определение среднего значения и запись в переменную average}
end;
end;
writeln;
writeln( 'Студенты, имеющие средний больший или равный 4');
for i := 1 to n do
begin
if pupil[i].average >= 4 then {если средний студента >=4}
write(pupil[i].LastName,', ');
end;
end.