1. Наука, изучающая законы и формы мышления, называется: Г) логика
2. Повествовательное предложение, в котором что-то утверждается или отрицается называется: В) высказывание
3. Константа, которая обозначается «1» в алгебре логики называется: В) истина
4. Какое из следующих высказываний являются истинным? В) II + VI = VIII (2 + 6 = 8, записанное при римских чисел)
5. Объединение двух высказываний в одно с союза «и» называется: Б) конъюнкция
6. Чему равно значение логического выражения (1v1)^(1v0)? А) 1 ((1 v 1) ^ (1 v 0) = 1 ^ 1 = 1)
7. Что такое логика? B) это наука о формах и законах человеческого мышления и, в частности, о законах доказательных рассуждений
8. Логической операцией не является: A) логическое деление
9. Объединение двух высказываний в одно с оборота «если..., то..» называется: Г) импликация
10. Таблица, содержащая все возможные значения логического выражения, называется: Б) таблица истинности
11. Даны три высказывания: А = (Наступила осень) В = (Мы учимся в колледже) С = (Мы решаем контрольную работу) Напишите в виде формулы высказывание: «Наступила осень, мы учимся в колледже и решаем контрольную работу» ABC
12. Придумайте ложное высказывание, соответствующее функции и постройте таблицу истинности для следующей функции: Х=А+ВС В ответе выписать комбинации А, В, С при которых Х – ложно. Например, если A = (Скопье – столица Черногории), B = (Скопье – столица Македонии) и C = (Скопье – столица Эфиопии), то X = A + BC соответствует ложному высказыванию "Скопье – столица Черногории или Македонии и Эфиопии". Таблица истинности: A B C X 0 0 0 0 0 0 1 0 0 1 0 0 – случай из примера 0 1 1 1 1 0 0 1 1 0 1 1 1 1 0 1 1 1 1 1 X ложно при (A, B, C) = (0, 0, 0), (0, 0, 1), (0, 1, 0).
1)var
a:array[1..5]of integer;
i,n,s:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
writeln('Введите число');
s:=0;
for i:=1 to n do begin
read(a[i]);
if a[i]>0 then s:=s+a[i]
end;
writeln('Сумма положительных элементов массива равна ', s)
end.
2)var
a:array[1..10]of integer;
i,n,P:integer;
begin
writeln('Введите число элементов');
readln(n);
writeln('Введите число');
P:=1;
for i:=1 to n do begin
read(a[i]);
if a[i] mod 6 = 0
then P:=P*a[i]
end;
writeln('Произведение элементов массива кратных 6 равна ',P)
end.
3)var
a:array[1..5]of integer;
n,i:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
writeln('Введите число');
for i:=1 to n do begin
read(a[i]);
if a[i]>0 then begin
a[i]:=a[i]*3;
writeln('Новый элемент равен: ',a[i])
end;
if a[i]<=0 then begin
a[i]:=a[i]+5;
writeln('Новый элемент равен: ',a[i])
end;
end;
end.
Буду рад если отметишь мой ответ как лучший