diff options
Diffstat (limited to 'others/volume1/008.pas')
-rw-r--r-- | others/volume1/008.pas | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/others/volume1/008.pas b/others/volume1/008.pas new file mode 100644 index 0000000..2d0f2d0 --- /dev/null +++ b/others/volume1/008.pas @@ -0,0 +1,30 @@ +var + n, d, m, i: byte; + p: qword = 1; + +begin + readln(n); + d := n div 3; + m := n mod 3; + + if n < 3 then + begin + writeln(n); + exit + end; + + if m = 1 then + begin + for i := 2 to d do + p := p * 3; + p := p * 4 + end + else + for i := 1 to d do + p := p * 3; + + if m = 2 then + p := p * 2; + + writeln(p) +end. |