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

Напишите решение на языке паскаля

Question

Информатика

Дементий

8 апреля, 08:25

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

Напишите решение на языке паскаля

+2

Ответы (1)

Знаете ответ?

Кирюха · 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.

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