start
|
| read(a)
| repeat
| |
| | if (a % 3 == 0) then
| | |
| | | write(a)
| | a <- a / 2
| until (a == 0)
end
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
start
|
| read(a)
|
|
| repeat
| |
| | if (a % 3 == 0) then
| | |
| | | write(a)
| | |
| | |
| | a <- a / 2
| |
| |
| until (a == 0)
|
end