Определить, сколько полных часов (h) и полных минут (m) прошло с начала суток до того...

Question

Определить, сколько полных часов (h) и полных минут (m) прошло с начала суток до того момента (в первой половине дня), когда часовая стрелка повернется на f градусов (от 0 до 360).
Напишите решение на языке паскаля

Answer 1

Var C: integer;
    h, m: string;
begin
     readln(C);
     C := C * 2;
     if (C div 60 < 10) then h := '0' + inttostr(C div 60);
     if (C mod 60 < 10) then m := '0' + inttostr(C mod 60);
     writeln(h, ':', m);
end.

Сам такое недавно делал, только на КуМИР'е)