28 lines
509 B
Text
28 lines
509 B
Text
func Rev(N);
|
|
int N;
|
|
[N:= N/10;
|
|
return rem(0)*10 + N;
|
|
];
|
|
|
|
proc NumOut(N);
|
|
int N;
|
|
[if N < 10 then ChOut(0, ^0);
|
|
IntOut(0, N);
|
|
];
|
|
|
|
int C, Y, M, D, Q, R;
|
|
[C:= 0;
|
|
for Y:= 2021 to -1>>1 do
|
|
for M:= 1 to 12 do
|
|
for D:= 1 to 28 do
|
|
[Q:= Y/100;
|
|
R:= rem(0);
|
|
if Q = Rev(D) and R = Rev(M) then
|
|
[IntOut(0, Y); ChOut(0, ^-);
|
|
NumOut(M); ChOut(0, ^-);
|
|
NumOut(D); CrLf(0);
|
|
C:= C+1;
|
|
if C >= 15 then return;
|
|
];
|
|
];
|
|
]
|