diff options
| author | Abigail <abigail@abigail.be> | 2021-07-03 01:24:53 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-07-03 01:24:53 +0200 |
| commit | ae86b7bbd623028dd4d6b15f456e92201e06a83c (patch) | |
| tree | f433483707a4aaa5d6890f17090d44abb625c955 /challenge-119/abigail/pascal | |
| parent | ac23884cde4169225c5d7a31f967afaebb1b8566 (diff) | |
| download | perlweeklychallenge-club-ae86b7bbd623028dd4d6b15f456e92201e06a83c.tar.gz perlweeklychallenge-club-ae86b7bbd623028dd4d6b15f456e92201e06a83c.tar.bz2 perlweeklychallenge-club-ae86b7bbd623028dd4d6b15f456e92201e06a83c.zip | |
Pascal solution for week 119, part 1
Diffstat (limited to 'challenge-119/abigail/pascal')
| -rw-r--r-- | challenge-119/abigail/pascal/ch-1.p | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/challenge-119/abigail/pascal/ch-1.p b/challenge-119/abigail/pascal/ch-1.p new file mode 100644 index 0000000000..3d8be93535 --- /dev/null +++ b/challenge-119/abigail/pascal/ch-1.p @@ -0,0 +1,23 @@ +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 not $FF) or + (num and $0F) shl 4 or + (num and $F0) shr 4); + end +end. |