Определить, високосный год или нет | Язык Паскаль
Pascal. Основы программирования Сложные Средние Простые задачи

Определить, високосный год или нет

С клавиатуры вводится год. Программа должна определять високосный это год или нет. Вывести на экран соответствующую надпись, а также количество дней в году.

В високосном годе 366 дней, тогда как в обычном 365. Високосными годами являются все года делящиеся нацело на 4 за исключением столетий, которые не делятся нацело на 400.

Алгоритм решения задачи:

  • Проверяем делится ли год на 4. Если нет, то год уже невисокосный.
  • Если год делится на 4, то проверяем делится ли он на 100. Если нет, то год однозначно високосный.
  • Если год делится на 100, но при этом не делится на 400, то год невисокосный.

Программа на языке Паскаль:

var
    year: word;
 
begin
    write('Введите год: '); 
    readln(year);
 
    if year mod 4 = 0 then
        if (year mod 100 = 0) and (year mod 400 <> 0) then
            year := 365
        else
            year := 366
    else
        year := 365;
 
    writeln('Количество дней в году: ', year);

    if year = 365 then
        writeln('Это невисокосный год.')
    else
        writeln('Это високосный год.');
end.

Примеры выполнения программы:

Введите год: 1913
Количество дней в году: 365
Это невисокосный год.
Введите год: 2012
Количество дней в году: 366
Это високосный год.