Аковы приметы правонарушителя?Написать программу. - VB

Формулировка задачи:

Решите такую задачу. Показания свидетелей правонарушения значительно различались. Первый свидетель сказал, что преступник был брюнет с усами. Второй заявил, что это был блондин без усов. Третий свидетель подтвердил, что преступник был блондином, но без портфеля. Четвертый был уверен, что преступник был шатеном с портфелем. В действительности оказалось, что каждый из свидетелей ошибся в одном из своих показаний. Каковы приметы правонарушителя?Написать программу.


textual

Код к задаче: «Аковы приметы правонарушителя?Написать программу. - VB»

Enum cvet
  Brun = 0
  Shat = 1
  Blon = 2
End Enum
 
Sub Form_Load()
Dim h As cvet, usi As Integer, port As Integer
AutoRedraw = True
For h = Brun To Blon
  For usi = True To False
    For port = True To False
      If h = Brun Xor usi Then           '1 св
        If h = Blon Xor Not usi Then     '2 св
          If h = Blon Xor Not port Then  '3 св
            If h = Shat Xor port Then    '4 св
Print Split("брюнет шатен блондин")(h), IIf(usi, "с усами", "без усов"), IIf(port, "с портфелем", "без портфеля")
            End If
          End If
        End If
      End If
    Next
  Next
Next
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.429 из 5

Источник
Похожие ответы
Для поиска решения или похожих решений вы можете воспользоваться "Поиском по сайту" или "Поиском по разделу"
Поиск по сайту