ответ:1. var
a:array[1..7] of integer;
i:Integer;
begin
//заполнение массива
a[1]:=3;
a[2]:=8;
a[3]:=2;
a[4]:=0;
a[5]:=2;
a[6]:=1;
a[7]:=7;
//вывод массива
for i:=1 to 7 do
Writeln(a[i]);
end.
2. var
c:array[1..12] of integer;
i:Integer;
begin
//заполнение массива
for i:=1 to 12 do
begin
Writeln('Введите ',i,' элемент массива');
readln(c[i]);
end;
//вывод массива
Writeln('Массив');
for i:=1 to 12 do
Write(c[i],' ');
end.
3.var
s:array[1..15] of integer;
i:Integer;
begin
//заполнение массива
for i:=1 to 15 do
s[i]:=random(40);
//вывод массива
Writeln('Массив');
for i:=1 to 15 do
Write(s[i],' ');
end.
4.var
b:array[1..25] of Real;
i:Integer;
begin
//заполнение массива
b[1]:=3;
b[2]:=6;
for i:=3 to 25 do
b[i]:=(b[i-1]+b[i-2])/i;
//вывод массива
Writeln('Массив');
for i:=1 to 25 do
Write(b[i]:9:3);
end.
Объяснение:
1) Или
2) Джордж Буль
3) 330 тыс.
4) Или
5) Не
6) 610
Объяснение:
Задание 1:
Дизъюнкция - это сложное логическое выражение, которое истинно, если хотя бы одно из простых логических выражений истинно и ложно тогда и только тогда, когда оба простых логических выраженныя ложны.
Обозначение: F = A + B. На изображении дизъюнкция
Дизъюнкция - «или»
=-=-=
Задание 2:
Английский ученый Джордж Буль предложил применять для исследования логических высказываний математические методы.
=-=-=
Задание 3:
собаки | кошки 770
кошки 550
собаки & кошки 100
Введём два множества: А — множество страниц, где есть слово «собаки», В — множество страниц со словом «кошки». По формуле, которая получена в предыдущем пункте, получаем:
NA = NA|B - NB + NA&B = 410 - 230 + 150 = 330
=-=-=
Задание 4:
Система ЭСЛ - это дизъюгкция(или), ее систему можете заметить на изображении ниже
=-=-=
Задание 5:
У инверсии логическая связка - «не»; «неверно, что», поэтому ответ 2
=-=-=
Задание 6:
Заметим, что так как
собаки 220
кошки 290
кошки | собаки 130
220+290+130=640
640-20-10=610
=-=-=
===== PascalABC.NET =====
begin
var a := ArrRandom(12, -2, 15);
Println('Исходный массив');
a.Println;
Println('Отобранные элементы');
a[2:].Println;
Println('После сортировки');
a[2:].Sorted.Println
end.