Discussion about math, puzzles, games and fun. Useful symbols: ÷ × ½ √ ∞ ≠ ≤ ≥ ≈ ⇒ ± ∈ Δ θ ∴ ∑ ∫ • π ƒ -¹ ² ³ °
| |
|
|
You are not logged in. #1 2007-09-23 15:40:13
Mean quiz :PA friend of mine posted this mean quiz on facebook: Code:Quiz() Prgm ClrIO For a, 4, 10, 2 0 -> j If a = 10 j+1 -> j For b, 1, 4, 1 If a/b=iPart(a/b) Then a/b -> c For d, 1, 4, 1 d*c -> e If e = 4 or e = 6 or e = 8 or e = 10 Then If e = 10 and a = 10 j+1 -> j for f, 5, 9, 2 15-f = g If g = 10 and e = 10 and a = 10 j+1 -> j a+g -> h If h = 7 or h = 9 or h = 9 or h = 13 Then For i, 1, 4, 1 1/3i^3-2i^2+17/3i -> i For k, 1, 4, 1 -1/3k^3+2k^2-2/3k -> k i - k -> L For m, 2, 5, 1 m+h-l -> n For p, 1, 4, 1 0 -> z If isPrime(a) = true z+1 -> z If isPrime(b) = true z+1 -> z If isPrime(c) = true z+1 -> z If isPrime(d) = true z+1 -> z If isPrime(e) = true z+1 -> z If isPrime(f) = true z+1 -> z If isPrime(g) = true z+1 -> z If isPrime(h) = true z+1 -> z If isPrime(i) = true z+1 -> z If isPrime(j) = true z+1 -> z If isPrime(k) = true z+1 -> z If isPrime(l) = true z+1 -> z If isPrime(m) = true z+1 -> z If isPrime(n)= true z+1 -> z If isPrime(p) = true z+1 -> z If z = a Then 0 -> z If 2^x=a and x = iPart(x) z+1 -> z If 2^x=b and x = iPart(x) z+1 -> z If 2^x=c and x = iPart(x) z+1 -> z If 2^x=d and x = iPart(x) z+1 -> z If 2^x=e and x = iPart(x) z+1 -> z If 2^x=f and x = iPart(x) z+1 -> z If 2^x=g and x = iPart(x) z+1 -> z If 2^x=h and x = iPart(x) z+1 -> z If 2^x=i and x = iPart(x) z+1 -> z If 2^x=j and x = iPart(x) z+1 -> z If 2^x=k and x = iPart(x) z+1 -> z If 2^x=l and x = iPart(x) z+1 -> z If 2^x=m and x = iPart(x) z+1 -> z If 2^x=n and x = iPart(x) z+1 -> z If 2^x=p and x = iPart(x) z+1 -> z If z = m Then 0 -> z If x*(x+1)/2=a and x=iPart(x) z+1 -> z If x*(x+1)/2=b and x=iPart(x) z+1 -> z If x*(x+1)/2=c and x=iPart(x) z+1 -> z If x*(x+1)/2=d and x=iPart(x) z+1 -> z If x*(x+1)/2=e and x=iPart(x) z+1 -> z If x*(x+1)/2=f and x=iPart(x) z+1 -> z If x*(x+1)/2=g and x=iPart(x) z+1 -> z If x*(x+1)/2=h and x=iPart(x) z+1 -> z If x*(x+1)/2=i and x=iPart(x) z+1 -> z If x*(x+1)/2=j and x=iPart(x) z+1 -> z If x*(x+1)/2=k and x=iPart(x) z+1 -> z If x*(x+1)/2=l and x=iPart(x) z+1 -> z If x*(x+1)/2=m and x=iPart(x) z+1 -> z If x*(x+1)/2=n and x=iPart(x) z+1 -> z If x*(x+1)/2=p and x=iPart(x) z+1 -> z If z = b Then a+b+c+d+e+f+g+h+i+j+k+l+m+n+p -> s 0 -> z For t, 1, iPart([math]\sqrt(s)[/math]), 1 If s/t=iPart(s/t) r+1 -> r EndFor If r=i Then Disp a, b, c Pause Disp d, e, f Pause Disp g, h, i Pause Disp j, k, l Pause Disp m, n, p EndIf EndIf EndIf EndIf EndFor EndFor EndFor EndFor EndIf EndFor EndIf EndFor EndIf EndFor EndFor EndPrgm With this many loops I hope the calculator will be able to solve the quiz within a few hours? :p Last edited by Identity (2007-09-23 17:10:50) #2 2007-09-23 17:10:30
Re: Mean quiz :P...But my calculator doesn't seem to want to do it... when I run program it just says... |