Что означают цифры когда считают d ? uses crt; const f=28; s=30; t=31; year=365; var m,n,d,res: integer; begin clrscr; write('vvedite nomer mesyaca -> '); readln(m); write('vvedite nomer dnya -> '); readln(n); if (m> 12) or (n> 31) then writeln('dannie vvedeni ne verno') else begin case m of 1: d: =n; 2: d: =t+n; 3: d: =t+f+n; 4: d: =2*t+f+n; 5: d: =2*t+f+s+n; 6: d: =3*t+f+s+n; 7: d: =3*t+2*s+f+n; 8: d: =4*t+2*s+f+n; 9: d: =5*t+2*s+f+n; 10: d: =5*t+3*s+f+n; 11: d: =6*t+3*s+f+n; 12: d: =6*t+4*s+f+n; end; res: =year-d; writeln('do novogo goda ostalos dney -> ',res); end; readkey; end.
t,f,s - константы, разные длины месяцев
например ввели 5 2 (2 мая)
до мая были январь и март( по 31 дню) и февраль (28 дней) и апрель (30 дней).
Тогда всего дней с начала года
Надеюсь понятно разжевано)