решить Какое из нижеприведённых предложений не является высказыванием?
а) все ученики нашей школы любят информатику.
б) Некоторые люди имеют голубые глаза.
в) Вы были вчера на выставке?
г) Завтра в нашем театре премьера.
2. Постройте таблицы истинности для следующих логических выражений:
a) A˄B˅C b) ¬A˅(B˄C)
3. Для какого из приведённых имён истинно высказывание:
НЕ (Первая буква гласная) И НЕ (Последняя буква согласная)?
1) Емеля 2) Иван 3) Михаил 4) Никита.
4. Определите, какие значения принимают выражения, если
А=1, В=0, С=0
А˅В˄С=
¬С˄А˅¬В=
А˅В˅¬С=
А˄¬С˅В=
var a: array [1..10] of integer;
i, m: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(20);
writeln('[', i, '] => ', a[i]);
if (a[i] mod 2 = 0) then m := m + a[i];
end;
writeln(m);
end.
2)
var a: array [1..10] of integer;
i, m: integer;
begin
m := 1;
for i := 1 to 10 do
begin
a[i] := random(20);
writeln('[', i, '] => ', a[i]);
if (a[i] mod 2 = 1) then m := m * a[i];
end;
writeln(m);
end.
3)
var a: array [1..10] of integer;
i, m: integer;
begin
m := 1;
for i := 1 to 10 do
begin
a[i] := random(20);
writeln('[', i, '] => ', a[i]);
m := m + a[i];
end;
writeln(m / 10);
end.
4)
var a: array [1..10] of integer;
i, m, c: integer;
begin
m := 1;
for i := 1 to 10 do
begin
a[i] := random(20);
writeln('[', i, '] => ', a[i]);
if (a[i] mod 2 = 0) then
begin
m := m + a[i];
c := c + 1;
end;
end;
if (c > 0) then writeln(m / c);
end.
Вас =)