langs a-z
This commit is contained in:
parent
db842d013d
commit
d066446780
11389 changed files with 98361 additions and 1020 deletions
9
Task/Integer-comparison/PL-I/integer-comparison.pli
Normal file
9
Task/Integer-comparison/PL-I/integer-comparison.pli
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
declare (a, b) fixed binary;
|
||||
|
||||
get list (a, b);
|
||||
if a = b then
|
||||
put skip list ('The numbers are equal');
|
||||
if a > b then
|
||||
put skip list ('The first number is greater than the second');
|
||||
if a < b then
|
||||
put skip list ('The second number is greater than the first');
|
||||
Loading…
Add table
Add a link
Reference in a new issue