Var
n, h, m, s: integer;
begin
read(n);
n := n mod (3600*24);
h := n div 3600;
m := n mod 3600 div 60;
s := n mod 60;
write(h div 10, h mod 10, ':', m div 10, m mod 10, ':', s div 10, s mod 10);
end.
Var month: array[1..12]of string[10]=
(' январь ',' февраль ',' март ',' апрель ',' май ',' июнь ',
' июль ',' август ',' сентябрь ',' октябрь ',' ноябрь ',' декабрь ');
procedure p(s:string);
begin
writeln(s);
end;
var N_M:integer;
begin
writeln(' введи номер месяца ');
readln(N_M);
case N_M of
1..12: p(month[N_M]);
else p(' такого месяца нет ');
end;
case N_M of
1,3,5,7,8,10,12: p(' 31 день ');
4,6,9,11: p(' 30 дней ');
2: p(' 28 дней ');
end;
case N_M of
12,1,2: p(' зима');
3,4,5: p(' весна');
6,7,8: p(' осень');
9,10,11: p(' лето');
end;
end.
Пример:
<span> введи номер месяца
5
май
31 день
весна</span>
1. Купить путевку на море - собрать вещи - поехать на море - разместиться в отеле - купаться, загорать, отдыхать, развлекаться - собрать вещи - уехать домой
2. Приехать в зоопарк - купить билет - зайти в зоопарк - ходить по зоопарку и смотреть на животных - выйти из зоопарка - вернуться домой
Ответ: объем первого сообщения больше второго в два раза.
Решение смотри во вложении.
