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.