Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Main-main
Program baru; var p,jumlah:int64; procedure ad(n:int64); begin if(n>0) then begin jumlah:=jumlah+1; case (n mod 10) of 0:write('5'); 1:write('3'); 2:write('2'); 3:write('7'); 4:write('6'); 5:write('1'); 6:write('9'); 7:write('0'); 8:write('4'); 9:write('8'); end; ad(n-3); ad(n div 2); ad(n div 3); end; end; begin jumlah:=0; readln(p); ad(p); write(' (',jumlah,')'); end.
run
|
edit
|
history
|
help
0
test10
BubbleSor (slimmer)
matriza
OLEG-02oct2017
ALEX LIMA NEPOMUCENO 600624764
pascal1
2
formato_real
LUIZ ANTONIO RANGEL MUNIZ 60061122
practica 2 ejercicio 10