diff options
| author | Abigail <abigail@abigail.be> | 2021-07-12 16:04:39 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-07-12 18:43:38 +0200 |
| commit | b6998257ebb26100a3566169cfd6dc0b8d3a060f (patch) | |
| tree | ca7f074f7f33c3229408c738e164f657b88fa3cf /challenge-121/abigail/pascal | |
| parent | 5f2d90da63b25cf21b53a3f557fb71a11a5ace06 (diff) | |
| download | perlweeklychallenge-club-b6998257ebb26100a3566169cfd6dc0b8d3a060f.tar.gz perlweeklychallenge-club-b6998257ebb26100a3566169cfd6dc0b8d3a060f.tar.bz2 perlweeklychallenge-club-b6998257ebb26100a3566169cfd6dc0b8d3a060f.zip | |
Solutions in 16 languages for week 121, part 1
Diffstat (limited to 'challenge-121/abigail/pascal')
| -rw-r--r-- | challenge-121/abigail/pascal/ch-1.p | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-121/abigail/pascal/ch-1.p b/challenge-121/abigail/pascal/ch-1.p new file mode 100644 index 0000000000..2b2c5c71d0 --- /dev/null +++ b/challenge-121/abigail/pascal/ch-1.p @@ -0,0 +1,18 @@ +Program XXX; + +(* *) +(* See ../README.md *) +(* *) + +(* *) +(* Run as: fpc -och-1.out ch-1.p; ./ch-1.out < input-file *) +(* *) + +var m, n: integer; + +begin + while not eof () do begin + readln (m, n); + writeln (m xor (1 shl (n - 1))); + end +end. |