Часовая стрелка повернулась с начала суток ** d градусов. Определите, сколько сейчас...

Question

Часовая стрелка повернулась с начала суток на d градусов. Определите, сколько сейчас целых часов h и целых минут m.

Входные данные:
На вход программе подается целое число d (0<=d<=360).<br>
Выходные данные:
Выведите на экран фразу:
It is ... hours ... minutes.

ЗАДАНИЕ НА ЯЗЫКЕ ПАСКАЛЬ.

Answer 1

Var d,time,hours,min:integer;
begin
  readln(d);
  time:=d*120;
  hours:=time div 3600;
  min:=time mod 3600 div 60;
  writeln('it is ',hours,' hours ',min,' minutes');
end.