Интернет, литература, сми, живое общение, самообразование и просто образование...
A1
(X<15)*((X>=3)->(X>=7))
Упростим:
(X<15)*( (X < 3) + (X >=7))
X < 15, подходят все варианты, убираем это условие
((X < 3) + (X >=7))
X < 3 нет
X >= 7 есть единственное(8)
ответ:4
А2
A+¬A*B
(A+¬A) * (A+B)
1 * (A + B)
A + B
Ответ: 2
А3
Анализируем первую строку таблицы:
Когда A, B, C одновременно равны нулю, то функция(D) равна "1".
Проверим:
Вариант 1)A&B&¬C = 0*0*1 = 1 - ложь, ответ не подходит
Вариант 2)A+B+C = 0+0+0 = 1 - ложь
Вариант 3)¬A*¬B*¬C = 1*1*1 = 1 - правда
Вариант 4) ¬A+B+C = 1 + 0 +0 = 1 - правда
Подставим в подходящие функции другие элементы таблицы
Вариант 4, строка 2: 1+0+1 = 0 - Ложь.
Рассматривать дальше не имеет смысла, т.к. остался 1 вариант
Ответ:3
¬(1 ∧ (0 ∨ (1 ∧ 0))) ∧ (¬(0 ∨ 1)) = ¬(1·(0+0))·(¬1) = ¬(1·0)·0 = 0
16000000*5*60=4800000000 (бит);
4800000000/(8*1024*1024*1024)=4800000000/8589934592≈0,56 (гигабайт);
0,56<1;
Ответ: 1) ≈0,56 гигабайт;
2) 0 рублей.
решение в среде Паскаль:
Var a:array[1..10] of Integer; i,s,m: integer; f,t:real;
begin
s:=0;
writeln('write marks');
For i:=1 to 10 do begin
readln(a[i]);
If i>1 then begin
If a[i-1]=2 then begin
If a[i]<>2 then begin s:=s-2; m:=m-1; end;end;end;
s:=s+a[i];
m:=m+1;
end;
f:=s/m;
t:=Int(f);
Writeln('His or her mark is ', t:2:0);
readln;
end.