(¬A v B) /\ (B v ¬C)
(¬A + B) & (B + ¬C)
¬AB + ¬A¬C + BB + B¬C
¬AB + ¬A¬C + B + B¬C
(¬AB + B) + B¬C + ¬A¬C
(¬A + 1)B + B¬C + ¬A¬C
B + B¬C + ¬A¬C
B(1 + ¬C) + ¬A¬C
B + ¬A¬C
Если нужен паскаль то вот:
var a,b: integer;
begin
writeln('Введите сторону a');
readln(a);
writeln('Введите сторону b');
readln(b);
writeln;
writeln('Периметр=',(a+b)*2);
readln;
end.
<span>Черный цвет кодирует соответственно (0,0,0). Все оттенки серого цвета образуются смешиванием трех составляющих одинаковой яркости. Например, при значениях (200,200,200)получается светло-серый цвет, а при значениях (100,100,100) темно-серый. Чем более темный оттенок серого нужно получить, тем меньшее число нужно вводить в каждое текстовое поле.</span>
Program intel;
var a,i,sum: integer;
Begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
a:= random(31)-10;
writeln(a:10);
sum:=sum+a;
end;
writeln;
writeln(sum:10);
readln;
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a :=ReadArrInteger(n); // бессмысленное занятие
a := ArrRandom(n, 1, 50);
a.Println
end.