diff options
| author | Abigail <abigail@abigail.be> | 2021-07-05 14:38:06 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-07-05 14:38:06 +0200 |
| commit | 78c841faea1060a3b7ea63a4316e461e490d275e (patch) | |
| tree | 92a3b40da3986775fbf1441d6424f720cbe6e3df /challenge-120/abigail/pascal | |
| parent | c79281808d6b8968f5bd105536df88b345bded7d (diff) | |
| download | perlweeklychallenge-club-78c841faea1060a3b7ea63a4316e461e490d275e.tar.gz perlweeklychallenge-club-78c841faea1060a3b7ea63a4316e461e490d275e.tar.bz2 perlweeklychallenge-club-78c841faea1060a3b7ea63a4316e461e490d275e.zip | |
Solutions in 15 languages for week 120, part 1.
This is basically the same as last weeks challenge...
Diffstat (limited to 'challenge-120/abigail/pascal')
| -rw-r--r-- | challenge-120/abigail/pascal/ch-1.p | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/challenge-120/abigail/pascal/ch-1.p b/challenge-120/abigail/pascal/ch-1.p new file mode 100644 index 0000000000..b16ebde46e --- /dev/null +++ b/challenge-120/abigail/pascal/ch-1.p @@ -0,0 +1,22 @@ +Program XXX; + +(* *) +(* See ../README.md *) +(* *) + +(* *) +(* Run as: fpc -och-1.out ch-1.p; ./ch-1.out < input-file *) +(* *) + +var num: integer; + +begin + while true do begin + readln (num); + if num = 0 then begin + break; + end; + writeln ((num and $55) shl 1 or + (num and $AA) shr 1); + end +end. |