- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
// Проверка совакупности дня,месяца,года
//Для тридцатидневных
if ( mh mod 2 ) = 1 then
if ( dy > 30 ) then
begin
writeln ( 'Такаго набора дня.месяца.года не существует' );
exit
end;
//Для Февраля с учётом високосности
if mh = 2 then
if ( ( ( yr mod 4 ) = 0 ) and ( ( yr mod 100 ) <> 0 ) ) or ( ( yr mod 400 ) = 0 ) then
begin
if ( dy > 29 ) then
begin
writeln ( 'Такаго набора дня.месяца.года не существует' );
exit
end;
end
else
begin
if ( dy > 28 ) then
begin
writeln ( 'Такаго набора дня.месяца.года не существует' );
exit
end;
end;
// Сдвиг на день вперёд,присвоение значений года и месяца
dy1:=dy+1;
yr1:=yr;
mh1:=mh;
//Переход на следующий день при дате 31.12
if ( mh = 12 ) and ( dy1 = 32 ) then
begin
mh1:=1;
yr1:=yr+1;
dy1:=1;
writeln ( 'С Новым Годом! Сессия подождёт...' );
end;
guestinho 01.06.2016 00:04 # +13
kerman 01.06.2016 00:49 # +12
Паскаль не нужен.
guestinho 01.06.2016 00:53 # +10
3_14dar 01.06.2016 00:54 # +10
guestinho 01.06.2016 00:55 # +15
kegdan 01.06.2016 06:26 # +12
Steve_Brown 01.06.2016 10:50 # +10
guest 30.05.2017 19:42 # 0
На помощь приходят послeдние разработки мeдицины, oпыт многoдeтных мaм нoвoго поколeния. Всё, что вы хотeли знать о родах и берeменнocти в однoм мecтe: рекoмендации акушеров, рейтинги клиник, подводныe камни каждого тримеcтрa и проcтo интереcные новоcти из жизни будущих «звёздныx» мaм.
<a href=http://mamatam.ru/glyukoza-sobiraetsya-zaberemenet>http://mamatam.ru/glyukoza-sobiraetsya-zaberemenet</a>
TeaBag 30.05.2017 23:12 # 0