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

Question

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

Answer 1

Var    y: integer;
 begin   
write('vvedite god: ');
 readln(y); 
    if y mod 4 = 0 then   
  y := 366
   else 
    y := 365; 
 writeln('dnei v godu: ', y);
end.

Comments

Я пытаюсь понять, как определить, високосный ли год=D

---

Свою прогу я писал без учёта делимости на 100 и на 400

Answer 2

Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A mod 4 = 0 then Write(366)
else Write(365)
End.