Question

Дан номер года (положительное целое число). Определить количество дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней. Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 и 2000 — являются) помогите решить задачу (Delphi)

Answer 1

Ответ:

я не поня...

Объяснение:

Answer 2

Конечно, я помогу вам с решением этой задачи на Delphi. Вот пример кода, который определит количество дней в заданном году:

delphiCopy code
program YearDays;

var
  year: Integer;
  days: Integer;

begin
  Write('Введите номер года: ');
  ReadLn(year);

  if ((year mod 4 = 0) and (year mod 100 <> 0)) or (year mod 400 = 0) then
    days := 366
  else
    days := 365;

  WriteLn('Количество дней в году ', year, ': ', days);
end.

Просто сохраните этот код в файл с расширением .pas (например, YearDays.pas), скомпилируйте его с помощью среды разработки Delphi и запустите. После ввода номера года программа выдаст количество дней в этом году.