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

Предыдущий
вопрос Следующий
вопрос

program ClockRotation;

var
d, hours, minutes: integer;

begin
writeln('Enter the number of degrees the clock hand has rotated (from 0 to 360): ');
readln(d);

hours := d div 30; // 360 degrees in a circle, 12 hours on a clock => 30 degrees per hour
minutes := (d mod 30) * 2; // 1 hour = 60 minutes => 30 degrees = 60 minutes

writeln('Full hours passed: ', hours);
writeln('Minutes passed: ', minutes);

end.