Problema: 2129

src/2100/2129.poti

@@ -1,20 +1,17 @@
-var a: Long := 1
+remove_zeros(a: Long): Long =
+  se a mod 10 == 0 e a > 0
+    entao remove_zeros(a div 10)
+    senao a
+  fim
 
+var a: Long := 1
 num =
   para i de 1 ate 1000000 gere
-    var j := i
-    enquanto j mod 10 == 0 faça
-      j := j div 10
-    fim
-    a := a * j
-    enquanto a mod 10 == 0 faça
-      a := a div 10
-    fim
-    a := a mod 1000000
+    var j := remove_zeros(i)
+    a := remove_zeros(a * j) mod 1000000
     a mod 10
   fim.mutável
 
-escreva num.junte("\n")
 var t := 0
 var n := leia_inteiro
 enquanto n > 0 faça