Определить, високосный год или нет | Язык Паскаль

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

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

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

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

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

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.

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

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