7. Составить программу, позволяющую подсчитать количество минут в заданном году.

Question

7. Составить программу, позволяющую подсчитать количество минут в заданном году.

Comments

нужно воодить год или кол-во дней в нем?

---

желательно

Answer 1

//////////////////////////////////

---

Comments

я думаю при таком уровне вопроса вполне хватит такой программы

---

Исправил =)

---

var
a:integer;
begin
writeln('Введите год: ');
readln(a);
if (a mod 4=0) and (a mod 100 <>0) or (a mod 400=0) then a:=366 else a:=365;
if a=366 then writeln('В') else writeln('не');
writeln('В этом году ', a*24*60, ' минут');
end.

---

var
a:integer;
begin
writeln('Введите год: ');
readln(a);
if (a mod 4=0) and (a mod 100 <>0) or (a mod 400=0) then a:=366 else a:=365;
writeln('В этом году ', a*24*60, ' минут');
end.