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
звёздное небо с подсчётом двойных звёзд
zadanye 3 b
practica 7 ejercicio 11
Linha d'água de uma caixa retangular
nomer3
matrica
Perfect numbers
practica 7 ejercicio 9
Rafli
Primo1