INPUT| begin integer i, j; real x; open(10); writetext(10, [Hello*World.[c_]]); open(20); L: i := read(20); write(10, format([-ndddddddddds_]), i); x := read(20); write(10, format([-d.dddddddddº+ndc_]), x); if i = 0 then writetext(10, [Farewell,*Cruel*World.[c_]]) else goto L; close(20); close(10); end | 111111111; 11111.11111; -222222222; -2222.222222; +333333333; +333.3333333; 444444444; 44.44444444; -555555555; -5.555555555; +666666666; +.6666666666; 123456789; 123456789º0; 111111111; 1.111111111º 1; -222222222; -2.222222222º-1; +333333333; +3.333333333º+1; 444444444; 4.444444444º 11; -555555555; -5.555555555º-11; +666666666; +6.666666666º+11; -987654321; -987654321º0; 111111111; 1º 1; -222222222; -2º-1; +333333333; +3º+1; 444444444; 4º 11; -555555555; -5º-11; +666666666; +6º+11; +987654321; -987654321º0; 111111111; º 1; -222222222; -º-2; +333333333; +º+3; 444444444; º 4; -555555555; -º-5; +666666666; +º+6; 0; 0º0; |