Вывести число дней оставшихся до нового года

Вывести число дней оставшихся до нового года

textual

const kd:array[1..11] of byte=(31,28,31,30,31,30,31,31,30,31,30); var d,m,k,i,os:integer;     s:string; begin write('Введите день и месяц: '); read(d,m); if not(m in [1..12])or((m=2)and not(d in [1..28])) or((m in [4,6,9,11])and not(d in [1..30])) or((m in [1,3,5,7,8,10,12])and not(d in [1..31])) then  begin   writeln('Неверная дата');   exit;  end; if m=1 then k:=d else  begin   k:=d;   for i:=1 to m-1 do   k:=k+kd[i];  end; os:=365-k; str(os,s); s:='Осталось до Нового года '+s; case os mod 100 of 11..19:s:=s+' дней' else  case os mod 10 of  2..4:s:=s+' дня';  5..9,0:s:=s+' дней';  else s:=s+' день';  end; end; write(s) end.



Source: studassistent.ru


Добавить комментарий