- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
uses crt;
var
d,m,k:integer;
begin
write('Введите день - ');readln(d);
write('Введите месяц - ');readln(m);
case m of
1: k:=365-d;
2: k:=365-(31+d);
3: k:=365- (31+28+d);
4: k:=365- (31+28+31+d);
5: k:=365- (31+28+31+30+d);
6: k:=365- (31+28+31+30+31+d);
7: k:=365- (31+28+31+31+30+30+d);
8: k:= 365-(31+28+31+31+30+30+31+d);
9: k:= 365- (31+28+31+31+30+31+30+31+d);
10: k:=365- (31+28+31+31+30+31+31+30+30+d);
11: k:=365- (31+28+31+31+30+31+31+30+30+31+d);
12: k:=365- (31+28+31+31+30+31+31+30+31+30+30+d);
end;
writeln('До конца года осталось ',k,' дн.');
end.
Так вот и здесь, прога будет корректно работать в 3 из 4 годов
ну лаба - что с нее взять?!
заодно шумерские единицы под нож
непорядок, понимаешь...
хотя, можно просто подождать, так как за одно столетие Земля поворачивается на 0,0014 секунды медленнее, чем в предыдущее столетие.
здесь должно удлинение года за счет передачи энергии осевого вращения звезды -> орбитальному движению планеты, нет?
когда погрешность станет заметна - тогда может что-то и поменяют
прецессия и нутация же
> когда погрешность станет заметна
раньше колонизируют Марс и проблема с поздневарварским календарём встанет уже остро
традиции - говно перед лицом прогресса
даже размер секунды не сильно поменяется:)
лично я бы похерил секунду, всё равно она просто 60² доля двух дюжин (как будет фейспалм по-шумерски?)
лаадно, шестнадцатеричной...
все равно у всех будут часы в каком нить UTC, похеру будет на солнце и луну, все равно в офисах темно ))))
Var
S:string;
Begin
S:='Hello, world!';
Write(s);
Readln;
End.
Только умноженое на 3.
Даже модуль зачем-то подключил.