From bb51fcbf0b671b63b348838e652d1367893d1ff0 Mon Sep 17 00:00:00 2001 From: Abigail Date: Wed, 3 Nov 2021 13:55:53 +0100 Subject: Pacal solutions for week 137 --- challenge-137/abigail/pascal/ch-2.p | 45 +++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 challenge-137/abigail/pascal/ch-2.p (limited to 'challenge-137/abigail/pascal/ch-2.p') diff --git a/challenge-137/abigail/pascal/ch-2.p b/challenge-137/abigail/pascal/ch-2.p new file mode 100644 index 0000000000..00f2a424a4 --- /dev/null +++ b/challenge-137/abigail/pascal/ch-2.p @@ -0,0 +1,45 @@ +Program XXX; + +(* *) +(* See ../README.md *) +(* *) + +(* *) +(* Run as: fpc -och-2.out ch-2.p; ./ch-2.out < input-file *) +(* *) + +var + n: Longint; + +function reverse (num: Longint): Longint; + var + rev: Longint; + + begin + rev := 0; + while num > 0 do begin + rev := rev * 10; + rev := rev + (num mod 10); + num := num div 10; + end; + reverse := rev; + end; + + +function ly (num: Longint): integer; + begin + if num >= 10000000 then + ly := 1 + else if num = reverse (num) then + ly := 0 + else + ly := ly (num + reverse (num)) + end; + + +begin + while not eof do begin + readln (n); + writeln (ly (n)); + end +end. -- cgit