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
practica 2 ejercicio 5
sound
Calculatrice 2.0
Deskripsi
testMatrice0.1
Huong11a2@
The largest one , matrix
Луноход-3
test_03
test07