Задание:
Определить, сколько полных часов (h) и полных минут (m) прошло с начала суток до того момента (в первой половине дня), когда часовая стрелкаповернется на f градусов (от 0 до 360). Напишите решение на языке паскаля
Решение:
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. Сам такое недавно делал, только на КуМИР'е)
Знаете другой ответ?