Задание 8
1.
B&(AvB) = B&A v B&B = B&A v B = B&(A v 1) = B
2.
A&(Bv!B) = A&1 = A
3.
A&(AvBvC)=A&A v A&B v A&C = A v A&B v A&C = A&(1vBvC)=A
4.
!(AvBv!C)
X:=random(11);
<span>x:=random(13);
</span><span>x:=-10 + random(26);
</span>x:= 10 + <span>random(6);
</span>Целые случайные числа из промежутка [0; n] генерирует функция random(n +1).
Целые случайные числа из промежутка [a; b] вычисляются с помощью выражения x:= a + random(b - a + 1);
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
21.To(ReadInteger('D=')).Println
end.
<h3>D= 40</h3><h3>21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40</h3>
<span>PASCAL
a,b,c:real;
a1,b1,c1,r: integer;
begin
writeln('введите угол А=');
readln (a1);
writeln ('введите угол B=');
readln (b1);
c1:=180-(a1+b1);
writeln ('введите радиус r=');
readln (r);
a:=2*r*sin(a1);
b:=2*r*sin(b1);
c:=2*r*sin(c1);
writeln('сторона А=',a);
writeln('сторона B=',a);
writeln('сторона C=',a);
readln;
end<span>.
BASIC
cls
input "a=",a1
input "b=",b1
c1=180-(a1+b1)
input "r=",r
a=2*r*sin(a1)
b=2*r*sin(b1)
c=2*r*sin(c1)
print "a=";a
print "b=";b
print "c=";c</span></span>
Програмы , которые выполняют различные стандартные функции и команды ( задачи ) зададеные ему .
