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

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

Question

Информатика

Савватия

1 января, 23:23

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

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

+1

Ответы (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.

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