Дан номер года (положительное целое число). Определить количество дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней — Pascal(Паскаль)

Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 и 2000 — являются)

Program If28;

Var
  Year: Integer;

Begin
  ReadLn(Year);
  If Year Mod 4 = 0 Then
  Begin
    If (Year Mod 100 = 0) And (Year Mod 400 <> 0) Then
    Begin
      WriteLn('Дней в этом году 365')
    End
    Else
      WriteLn('Дней в этом году 366');
  End
  Else
    WriteLn('Дней в этом году 365');

End.

Похожие записи/страницы:

Leave a Comment

19 − 12 =