Опишите отличительные особенности крупной и
мелкой бытовой техники

В чем состоит особенность приборов, которые
относятся к бытовой электронике?

создаваемый уровень шума,
отсутствие повреждения поверхностей
(для передвижных приборов) и т. п

Sub z()
    Range(Cells(1, 1), Cells(100, 100)).Clear
    n1=5
    n2=3
    n3=4

    k = 1
    A = InitMatrix(n1, k, 1)
    k = k + n1 + 2
    B = InitMatrix(n2, k, 1)
    k = k + n2 + 2
    C = InitMatrix(n3, k, 1)

End Sub

Function InitMatrix(n, cx, cy)
    ReDim A(n, n)
    For i = LBound(A, 1) To UBound(A, 1)
        For j = LBound(A, 2) To UBound(A, 2)
            A(i, j) = Rnd * 200 - 100
            Cells(cx + i, cy + j) = A(i, j)
        Next
    Next

    Cells(cx, cy + n + 1) = "PositiveAverage ="
    Cells(cx, cy + n + 2) = PositiveAverage(A)

    InitMatrix = A
End Function

Function PositiveAverage(A)
    For i = LBound(A, 1) To UBound(A, 1)
        For j = LBound(A, 2) To UBound(A, 2)
            If A(i, j) > 0 Then
                s = s + A(i, j)
                k = k + 1
            End If
        Next
    Next

    PositiveAverage = s / k
End Function

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

1)
begin
  var (a,b,c):=ReadInteger3('Введите a,b,c,d-> '); var d:=ReadInteger;
  if a=d then begin Println('Первое число равно',d); exit; end;
  if b=d then begin Println('Второе число равно',d); exit; end;
  if c=d then begin Println('Третье число равно',d); exit; end;
  a:=d-a; b:=d-b; c:=d-c;
  var max:=max(max(a,b),c);
  Println('Максимальная разность->',max);
end. 

2)
begin
 var a:=ReadInteger('Введите возраст->');
 if (a mod 10=1) and (a<>11) 
   then writelnformat('Вам {0} год',a)
   else
      if (a mod 10=2) or (a mod 10=3) or (a mod 10=4) 
        then writelnformat('Вам {0} года',a)
        else writelnformat('Вам {0} лет',a);
end.

3)
begin
 var (x,a,b):=readreal3('Введите x,a,b->');
 WritelnFormat('Нужно приобрести {0} банок краски',Round((a*b)/x));
end.

4)
begin
 var (a,b):=readreal2('Введите a,b->');
 if a+b>10 
   then println(2*a*b)
   else 
     if a>b 
       then
        Println(a+b,a-b)
       else
        Println(a-b,a+b);
end.