Дан номер года. Определить, является ли он високосным (год является високосным, если его номер делится на 4, за исключением тех, которые делятся на 100 и не делятся на 400).
Нет комментариев
Ответы
Гость Ну а год какой???
ты год то напиши.
2 комментария:
Ему текст Программы надо написать, а не определить високосность года))
Любой год
Ему текст Программы надо написать, а не определить високосность года))
Любой год
Гость Var
year: integer;
begin
write('Введите год: ');
readln(year);
if year mod 4 = 0 then
if year mod 100 = 0 then
if year mod 400 <> 0 then
write('365 дней')
else write('366 дней')
else write('366 дней')
else write('365 дней');
end.
1 комментария:
Pascal ABC
Pascal ABC Похожие вопросы
Список предметов
