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