Question

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

Answer 1

program raf105;

var

 d,hour,min: integer;

begin

 write('d = ');

 readln(d);

 min:= d * 2;

 hour:= min div 60;

 min:= min - hour*60;

 writeln('С начала суток прошло ',hour,' ч. ',min, ' мин.');

end.

PascalABC