Module Module1 Sub Main() Dim a As String = Console.ReadLine() If (a = "Зима") Then Console.WriteLine("Декабрь (31), Январь (31), Февраль (28-29)") Console.WriteLine("90-91 д.") ElseIf (a = "Весна") Then Console.WriteLine("Март (31), Апрель (30), Май (31)") Console.WriteLine("92 д.") ElseIf (a = "Лето") Then Console.WriteLine("Июнь (30), Июль (31), Август (31)") Console.WriteLine("92 д.") ElseIf (a = "Осень") Then Console.WriteLine("Сентябрь (30), Октябрь (31), Ноябрь (30)") Console.WriteLine("91 д.") End If Console.ReadKey() End Sub End Module
Например, если тебе сказали, что вечеринка будет в субботу, а на самом деле она назначена на пятницу; если тебе сказали, что поезд отъезжает в 18.00, а его отъезд запланирован в 17.30; если тебе сказали, что день рождения у человека 17 февраля, а оно 19 февраля; если тебе сказали, что у митохондрий нет ДНК (хотя есть); - тебе сообщили недостоверную информацию, т.е. не соответствующую действительности. Ты можешь написать о любом подобном случае.
P.S.: если тебе к примеру сказали, что вечеринка в субботу, и она планировалась на субботу, однако потом её перенесли, то такая информация являлась достоверной, но неустойчивой(меняющейся во времени)
Module Module1
Sub Main()
Dim a As String = Console.ReadLine()
If (a = "Зима") Then
Console.WriteLine("Декабрь (31), Январь (31), Февраль (28-29)")
Console.WriteLine("90-91 д.")
ElseIf (a = "Весна") Then
Console.WriteLine("Март (31), Апрель (30), Май (31)")
Console.WriteLine("92 д.")
ElseIf (a = "Лето") Then
Console.WriteLine("Июнь (30), Июль (31), Август (31)")
Console.WriteLine("92 д.")
ElseIf (a = "Осень") Then
Console.WriteLine("Сентябрь (30), Октябрь (31), Ноябрь (30)")
Console.WriteLine("91 д.")
End If
Console.ReadKey()
End Sub
End Module
P.S.: если тебе к примеру сказали, что вечеринка в субботу, и она планировалась на субботу, однако потом её перенесли, то такая информация являлась достоверной, но неустойчивой(меняющейся во времени)