|
Интересный факт на октябрь 2010г.Этот месяц необычный,у него 5 пятниц,5 суббот и 5 воскресений.Такое случается один раз в 823 года.Такой месяц считается денежным.Разошли эту смс 8 хорошим людям и через 4 дня получишь много денег.Это по учению Фэн-Шуй.Если не отошлёшь смс,то упустишь удачу Такое сообщение я сегодня получил во множестве от всех.. Естественно, я заинтересовался столь редким фактом (не считая пунктуации сообщения) и вспомнил прошлую жизнь.
Результат можно получить, запустив эту программу на Foxpro 2.6 (единственный язык, который я изучил в совершенстве). Code set talk off
set date to germ
set cent on
set excl on
set safe off
clea all
clea
on erro do onerr
sele 0
use calendar
zap
on erro
data = {01.10.2010}
for i = 2010 to 1000 step - 1
data = "{01.10." + allt(str(i)) + "}"
wait wind nowa data
m.oktober = eval(data)
if dow(m.oktober) = 6
? data
m.dow = dow(m.oktober)
inse into calendar from memv
endi
endf
brow norm
proc onerr
crea tabl calendar (oktober d, dow n(10, 0));
А вот и результат ее работы: 2010.10.01 2004.10.01 1999.10.01 1993.10.01 1976.10.01 1971.10.01 1965.10.01 1954.10.01 1948.10.01 1943.10.01 1937.10.01 1926.10.01 1920.10.01 1915.10.01 1909.10.01 1897.10.01 1886.10.01 1880.10.01 1875.10.01 1869.10.01 1858.10.01 1852.10.01 1847.10.01 1841.10.01 1830.10.01 1824.10.01 1819.10.01 1813.10.01 1802.10.01 1790.10.01 1784.10.01 1779.10.01 1773.10.01 1762.10.01 1756.10.01 1751.10.01 1745.10.01 1734.10.01 1728.10.01 1723.10.01 1717.10.01 1706.10.01 1700.10.01 1694.10.01 1688.10.01 1683.10.01 1677.10.01 1666.10.01 1660.10.01 1655.10.01 1649.10.01 1638.10.01 1632.10.01 1627.10.01 1621.10.01 1610.10.01 1604.10.01 1599.10.01 1593.10.01 1582.10.01 1576.10.01 1571.10.01 1565.10.01 1554.10.01 1548.10.01 1543.10.01 1537.10.01 1526.10.01 1520.10.01 1515.10.01 1509.10.01 1497.10.01 1486.10.01 1480.10.01 1475.10.01 1469.10.01 1458.10.01 1452.10.01 1447.10.01 1441.10.01 1430.10.01 1424.10.01 1419.10.01 1413.10.01 1402.10.01 1390.10.01 1384.10.01 1379.10.01 1373.10.01 1362.10.01 1356.10.01 1351.10.01 1345.10.01 1334.10.01 1328.10.01 1323.10.01 1317.10.01 1306.10.01 1300.10.01 1294.10.01 1288.10.01 1283.10.01 1277.10.01 1266.10.01 1260.10.01 1255.10.01 1249.10.01 1238.10.01 1232.10.01 1227.10.01 1221.10.01 1210.10.01 1204.10.01 1199.10.01 1193.10.01 1182.10.01 1176.10.01 1171.10.01 1165.10.01 1154.10.01 1148.10.01 1143.10.01 1137.10.01 1126.10.01 1120.10.01 1115.10.01 1109.10.01 1097.10.01 1086.10.01 1080.10.01 1075.10.01 1069.10.01 1058.10.01 1052.10.01 1047.10.01 1041.10.01 1030.10.01 1024.10.01 1019.10.01 1013.10.01 1002.10.01
| 
(Компенсирую наградой)