Вывести число дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней

@Настя Мулан · Регистрация: 11.02.2017

Author24 — интернет-сервис помощи студентам

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

@ZX Spectrum-128 · 19.02.2017, 18:54

Delphi

if ((i mod 4 = 0) and (i mod 100 <> 0)) or (i mod 400 = 0) then 
 writeln('Високосный')
else 
 writeln('Невисокосный');

@Настя Мулан 1 / 1 / 0 Регистрация: 11.02.2017 Сообщений: 24
		1
	Вывести число дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней 19.02.2017, 18:26. Показов 4412. Ответов 1 Метки нет (Все метки) Дан номер некоторого года (положительное целое число). Вывести число дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней. Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 и 2000 — являются). задание нужно сделать для программы Лазариус 0

	19.02.2017, 18:54

Вывести число дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней

Решение