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

Question

Написать в паскале
Определить количество дней в году, который вводит пользователь. В високосном годе - 366 дней, тогда как в обычном 365

Answer 1

В високосном годе - 366 дней, тогда как в обычном 365. Високосными годами являются все года делящиеся нацело на 4 за исключением столетий, которые не делятся нацело на 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.

Comments

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.