A k var n longint begin readlnn writeln

Задача A. k-я секунда суток var n: longint; begin readln(n); writeln ('It is ', n div 3600, ' hours ', (n mod 3600) div 60, ' minutes. '); end.

Задача B. Электропоезд hours, minutes = map(int, input(). split(': ')) initial = hours * 60 + minutes n = int(input()) leaving_time = [0] * n leaving_time[0] = initial curr = initial t = [None] + list(map(int, input(). split())) for i in range(1, n): curr += t[i] if curr >= 1440: curr = curr - 1440 leaving_time[i] = curr for t in leaving_time: print((t // 60) // 10, (t // 60) % 10, ': ', (t % 60) // 10, (t % 60) % 10, sep='')

Задача C. Электронные часы var h 1, m 1, h 2, m 2, count, t 1, t 2, t: integer; begin readln(h 1, m 1, h 2, m 2); t 1 : = h 1 * 60 + m 1; t 2 : = h 2 * 60 + m 2; if t 2 < t 1 then t 2 += 1440; count : = 0; for t : = t 1 to t 2 do if (t div 60) mod 24 = (t mod 60) then count += 1; writeln(count); end.

Задача D. Праздники var k, res: longint; begin readln(k); res: =2 + 7*(k div 5) + (k mod 5); if k>36 then inc(res); If k>44 then inc(res); if (k=39) or (k=44) or (k=48) or (k=49) then inc(res, 2); writeln(res); end.

Задача E. Ежедневник def Is. Leap. Year(n): return (n % 4 == 0 and n % 100 != 0) or n % 400 == 0 Start. Year = int(input()) Day. Differ = 0 Current. Year = Start. Year while Day. Differ % 7 != 0 or Is. Leap. Year(Current. Year) != Is. Leap. Year(Start. Year) or Day. Differ == 0: Current. Year = Current. Year + 1 if Is. Leap. Year(Current. Year): Day. Differ += 2 else: Day. Differ += 1 print(Current. Year)