Укажите предложение, не являющееся высказыванием: 1)Гоголь писал «Мертвые души» в Риме. 2)Не можете ли вы передать соль? 3)Некоторые лекарства опаснее самих болезней. 4)Рукописи не горят 2.Укажите отрицания высказывания 1)«Для каждого из нас учить второй иностранный язык легче, чем первый»: 2)«Не для каждого из нас учить второй иностранный язык легче, чем первый»
3)«Неверно, что для каждого из нас учить второй иностранный язык легче, чем первый» 4)«Для каждого из нас не учить второй иностранный язык легче, чем первый» 3.Какому логическому выражению соответствует высказывание: «Таня поёт в хоре, а Лёня не увлекается самодеятельностью».
4.Найдите значение выражения: (1/\1)\/(1/\1)\/(1/\0) 1)0 2)1 3)5 4)4
5.Знаком /\ в логике обозначается следующая операция: 1)инверсия 2)дизъюнкция 3)импликация 4)конъюнкция
6.Предложение на любом языке, содержание которого можно однозначно определить как истинное или ложное называют… 1)теоремой 2)речью 3)доказательством 4)высказыванием
7.Для каких из чисел ложно высказывание: НЕ((число > 50) ИЛИ (число четное))? 1)123 2)50 3)9 4)8
8.Для какого из приведённых имён истинно высказывание: НЕ(Первая буква гласная) И (Последняя буква гласная)? 1)Николай 2)Марина 3)Юрий 4)Иван
9.Таблица: A B F 0 0 0 0 1 0 1 0 1 1 1 0 Какому логическому выражению соответствует следующая таблица истинности: _ 1)A/\B 2)A/\B 3)A\/B 4) _ A\/B
❤️❤️
const n=20;
var
a:array[1..n] of integer;
i,k,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i]:4)
end;
writeln;
write('K = '); readln(k);
s:=0;
for i:=1 to n do
if a[i] mod k = 0 then s:=s+a[i];
Writeln('s = ',s);
end.
Пример:
Исходный массив:
18 -24 -4 -21 15 19 18 -16 -1 -8 7 -21 21 22 -24 -4 18 -16 24 4
K = 3
s = 24
2.
const n=10;
var
a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(11);
Write(a[i]:4)
end;
writeln;
writeln('Выбранные элементы:');
for i:=1 to n do
if a[i]<=i then Write(a[i]:4) else write(' ':4);
Writeln;
end.
Пример:
Исходный массив:
9 1 2 8 2 7 1 10 8 3
Выбранные элементы:
1 2 2 1 8 3
begin
var a:=ArrRandom(ReadInteger('n='),1,99);
a.Println;
var k:=ReadInteger('k=');
Writeln('Сумма чисел, кратных ',k,': ',
a.Where(x->x mod k=0).Sum)
end.
Тестовое решение:
n= 18
45 17 36 15 65 17 97 44 49 43 60 51 66 72 18 55 71 85
k= 12
Сумма чисел, кратных 12: 168
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,20);
a.Println;
a.Where((x,i)->x=i+1).Println
end.
Тестовое решение:
n= 16
17 2 1 14 20 19 10 3 9 15 14 4 2 7 2 16
2 9 16