7. Составить программу, позволяющую подсчитать количество минут в заданном году.
MrMaks1096:
нужно воодить год или кол-во дней в нем?
желательно
Ответы
Ответ дал:
0
//////////////////////////////////
Приложения:
2000 год был високосным, 1900 - нет. Там есть дополнительное условие.
я думаю при таком уровне вопроса вполне хватит такой программы
Исправил =)
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.
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.
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.
Да, только ответ не может даваться в комментарии...
Вас заинтересует
1 год назад
2 года назад
3 года назад
3 года назад