RosettaCodeData/Task/Binary-digits/PL-I/binary-digits-2.pli
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

7 lines
198 B
Text

declare text character (50) initial (' ');
put string(text) edit (25) (b);
put skip list (trim(text, '0'));
put string(text) edit (2147483647) (b);
put skip list (trim(text, '0'));