Új hozzászólás Aktív témák

• #1531 ArchElf addikt ArchElf #1529

  Új Válasz 2011-11-24 15:33:44 #1531

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ArchElf

  addikt

  válasz ArchElf #1529 üzenetére

  Egészbe:
  Sub Main()
  Dim ev As Integer
  Dim szokoev As String
  ev = 0
  szokoev = ""
  If Integer.TryParse(Console.ReadLine(), ev) Then
  
  If (ev Mod 400 = 0) Then
  szokoev = ""
  ElseIf (ev Mod 100 = 0) Then
  szokoev = "nem "
  ElseIf (ev Mod 4 = 0) Then
  szokoev = ""
  Else
  szokoev = "nem "
  End If
  Console.WriteLine("A {0}. év {1}szökőév.", ev, szokoev)
  Else
  Console.WriteLine("A beadott érték nem szám.")
  End If
  Console.ReadKey()
  End Sub

  C#-ban a % a VB-s MOD (egész osztás maradéka).

  AE

Új hozzászólás Aktív témák