А) а∧b=1∧0=0
б) а∧b∨c=1∧0∨1=0∨1=1
в) (а∨b)∧(c∨b)=(1∨0)∧(1∨0)=1∧1=1
г) а∨b=1∨0=1
д) а∨b∧с=1∨0∧1=1∨0=1
е) не(а∨b)∧(c∨b)=0∧1=0
ж) неа∨b=0∨0=0
и)неа∨b∧с=0∨0∧1=0∨0=0
к)не(а∧b∧c) =не(1∧0∧1)=не 0=1
1.Alt+shift или ctrl+shift
2.shift
3.Capslock
4.через shift
5.-
6.delete
7.-
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(10,-50,50); a.Println;
a.Where(x->x>0).Select(x->x*x).Average.Println
end.
<u>Пример</u>
29 45 -32 -44 -48 25 8 -4 -25 -22
888.75
var s, i, a: integer;
begin
s:=0;
writeln('Введите массу 12 грузов');
for i:=1 to 12 do
begin
read(a);
s:=s+a;
end;
writeln('Масса 12 грузов равна ',s);
end.