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

Задача

Определить количество дней в году, который вводит пользователь.

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

Решение

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

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

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

var
    year: word;
 
begin
    write('Input year: '); 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('The number of days in the year: ', year);
end.

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

Input year: 2012
The number of days in the year: 366
Input year: 1913
The number of days in the year: 365

Тема

Условные операторы

Уровень

Простые задачи

Добавить комментарий