Предмет: Информатика,
автор: Markys
7. Составить программу, позволяющую подсчитать количество минут в заданном году.
MrMaks1096:
нужно воодить год или кол-во дней в нем?
желательно
Ответы
Автор ответа:
0
//////////////////////////////////
Приложения:
я думаю при таком уровне вопроса вполне хватит такой программы
Исправил =)
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.
Похожие вопросы
Предмет: Математика,
автор: sasha72027303
Предмет: Математика,
автор: adelina552
Предмет: Физика,
автор: zabolotskykh24112008
Предмет: Химия,
автор: FreeUzurkistan