Advertisement
Guest User

Untitled

a guest
May 27th, 2017
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.67 KB | None | 0 0
  1. DIM h, r, u, s, t, g, o AS INTEGER
  2.  
  3. FOR h = 1 TO 9
  4.     FOR r = 0 TO 9
  5.         FOR u = 1 TO 9
  6.             FOR s = 0 TO 9
  7.                 FOR t = 0 TO 9
  8.                     FOR g = 1 TO 9
  9.                         FOR o = 0 TO 9
  10.  
  11.                             hrust = (10000 * h) + (1000 * r) + (100 * u) + (10 * s) + (1 * t)
  12.                             grohot = (100000 * g) + (10000 * r) + (1000 * o) + (100 * h) + (10 * o) + (1 * t)
  13.                             rrrrrrrrrrr = hrust * grohot
  14.  
  15.  
  16.                         NEXT o
  17.                     NEXT g
  18.                 NEXT t
  19.             NEXT s
  20.         NEXT u
  21.     NEXT r
  22. NEXT h
  23.  
  24. PRINT hrust, "+", grohot, "=", rrrrrrrrrrr
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement