Задание № 1 Постройте таблицу истинности для следующего высказывания A ^ B v не А ^не B
Задание № 2
Определите значение логических переменных:
А ^(Марс –планета)=1
B v ( Андромеда – это звезда)=0
С ^ (Юпитер – это планета Солнечной системы) = 0
Задание № 3
Найдите значение следующего суждения F= (x>5) ^ (x<12) v (x<8)
при х=7, x=5, x=11
Задание № 4
В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента сети Интернет.
Запрос Найдено страниц
(в тыячах)
Гомер 3440
Одиссея 5280
Одиссея & Гомер 560
Какое количество страниц (в тысячах) будет найдено по запросу Гомер V Одиссея?
Задание № 5
A B C F
1 1
0 0
1 0
1 0
1 1
Даны 3 числа А=100112 В=237, С=2010. Переведите числа в двоичную систему счисления и выполните поразрядную конъюнкцию данных чисел(A^B^C). ответ F представьте в десятичной СС.
Решение: 237 = 3*70+ 2*71 =3+14=1710
1710=100012 ……. и так далее..
Задание №6
Даны 3 числа А=1100112 В=367, С=4810. Переведите числа в двоичную систему счисления и выполните поразрядную конъюнкцию данных чисел(A^B^C). ответ F представьте в десятичной СС.
Задание № 7
Для каких из приведенных слов верно высказывание:
Не(первая буква гласная)^(последняя буква гласная)?
Барс, кошка, тигр, трелка, чайник, собака, окрошка.
Ответы на вопрос:
1)
var
i,c:integer; //Объявляем переменные
mas: array [1..20] of integer; //Объявляем массив
begin
c:=0; //Обнуляем переменную c
writeln('20 случайных чисел:'); //выводим на экран сообщение
randomize; //запускам рандом
for i:=1 to 20 do begin //запускаем цикл для массива от 1го до 20го элемента по очереди
mas[i]:=random(5,20); //генерируем число от 5 до 20
if mas[i] mod 2 = 0 then begin //запускам проверку, на четность числа. Если оно делится без остатка на 2
c:=c+1; //то к переменной c прибавляем единицу (значит оно четное
end;
write(mas[i], ' '); //Выводим наш массив
end;
writeln(); //пробел между строк
writeln('Количество четных элементов = ', c); //выводим количество четных элементов
end.
2)
var
i:integer; //Объявляем переменные
s:real; //Объявляем переменные
mas: array [1..10] of real; //Объявляем массив
begin
writeln('Введите 10 вещественных чисел'); //выводим на экран сообщение
for i:=1 to 10 do begin //запускаем цикл заполнения массива
read(mas[i]); //вводим число с клавиатуры
if mas[i] < 1 then //проверяем меньше ли единицы введенное число
s:=s+mas[i]; //если меньше,то прибавляем его в сумму (считаем сумму всех чисел, меньше 1, чтобы найти среднее арифметическое)
end;
s:=s/10; //Делим сумму на количество чисел
writeln ('Среднее арифметическое = ',s);
end.
Популярно: Информатика
-
Карина111199929.12.2021 22:32
-
po4emy22825.07.2021 18:20
-
BlueSubaru66618.01.2023 16:40
-
klochkovanastsy30.09.2021 11:06
-
karuna424.06.2020 07:51
-
Sharabyrin25.10.2022 04:54
-
лехенский03.02.2021 02:59
-
hnwb12.05.2022 20:41
-
тупая129429.03.2020 06:00
-
dinbili203.04.2020 08:33