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

Question

Часовая стрелка повернулась с начала суток на d градусов. Вывести, сколько прошло с начала суток полных часов и минут. На вход программе подаётся целое число d от 0 до 360.

Answer 1

var d, m:integer;

var h:real;

begin

readln(d);

m := d * 2;

h := m / 60;

m := m mod 60;

write('Количество часов = ' + Int(h) + ' количество минут = '+ m)

end.