Дан номер года. Найти число дней в этом году. Указание: В современном календаре каждый год, номер которого делится на 4, является високосным ,за исключением тех, которые делятся на 100 и не делятся на 400. (Например 1990 год не високосный,2000 год високосный)- Pascal(Паскаль)

program z1;

uses crt;

var
  n: integer;

begin
  clrscr;
  writeln('Введите год');
  readln(n);
  if ((n mod 4 = 0) and (n mod 100 <> 0)) or (n mod 400 = 0) then
    writeln('В году 366 дней')
  else
    writeln('В году 365 дней');
  readln;

end.

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

Leave a Comment

− 4 = 1