Facebook
From Gracious Motmot, 3 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 138
  1. Function obwTrojkata(a As Integer, b As Integer, c As Integer) As Integer
  2.  
  3.     If (a + b > c) And (a + c > b) And (c + b > a) Then
  4.     obwTrojkata = a + b + c
  5.     Else: Call MsgBox("z podanych odcinków nie mozna zbudowac trójkata")
  6.     End If
  7. End Function