Find the last Sunday of each month: Difference between revisions
m
→{{header|ALGOL-M}}
m (→{{header|Phix}}: added syntax colouring the hard way) |
|||
Line 272:
% EXERCISE THE ROUTINE %
INTEGER M, Y, SUNDAY;
SUNDAY := 0;
WRITE("DISPLAY LAST
READ(Y);
FOR M:=1 STEP 1 UNTIL 12 DO
WRITE(MONTHNAME(M), LASTKDAY(SUNDAY,M,
END
Line 282 ⟶ 283:
{{out}}
<pre>
DISPLAY LAST SUNDAYS FOR WHAT YEAR?
-> 2021
JAN 31
FEB 28
|