daily pastebin goal
58%
SHARE
TWEET

Untitled

a guest Dec 16th, 2018 58 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. READ n$, m1, m2, m3
  2. WHILE n$ <> "END"
  3.     m4 = (m1 + m2 + m3) / 3
  4.     t1 = t1 + m1
  5.     t2 = t2 + m2
  6.     t3 = t3 + m3
  7.     IF m4 >= 50 THEN
  8.         s$ = "PASS"
  9.     ELSE IF m4 < 50
  10.         s$ = "FAIL"
  11.         ELSE IF m4<=70
  12.         s$="CREDIT"
  13.     END IF
  14.     PRINT n$, m4, s$
  15.     READ n$, m1, m2, m3
  16. WEND
  17. PRINT "Math", "English", "angla"
  18. PRINT t1 / 3, t2 / 3, t3
  19. END
  20. DATA "NADER",60,40,47
  21. DATA "AMIRAH",70,50,60
  22. DATA "ASEA",80,73,60
  23. DATA "END",-1,-1,-1
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top