Paste Search Dynamic
Public Shared Sub
  1. imports System
  2.  
  3. public class Test
  4.         public Shared sub Main()
  5.                 ' your code goes here
  6.                 dim a, b, c as byte
  7.                 for a = 1 to 10
  8.                 for b = 1 to 10
  9.                 for c = 1 to 10
  10.                         if (a^2 + b^2 - c^2 = 0) then
  11.                                 Console.Writeline("a=" & a & ",b=" & b & ",c=" & c)
  12.                         end if
  13.                 next a
  14.                 next b
  15.                 next c
  16.         Console.Writeline("The program has been completed")
  17.         Console.Writeline("Программа выполнена")
  18.         end sub
  19. end class
Parsed in 0.005 seconds