Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
129
program HelloWorld; var n, a, b, c, d: byte; begin readln(n) ; a:= n mod 2; n:= n div 2; b:= n mod 2; n:= n div 2; c:= n mod 2; n:= n div 2; d:= n mod 2; n:= n div 2; a:=8*a+4*b+2*c+d; writeln(n=a); end.
run
|
edit
|
history
|
help
0
Бассейн-7=
считалочка05
Fibonacijev niz
How many letters?
AgentMaxence
TanTai11A2@
BubbleSort (standaard)
Project Euler 17 : Number letter count (1000)
5161
Определение стенки с максимальной высотой