Pascal.Определить h - полное количество часов и m - полное количество минут, прошедших от...

Question

Pascal.Определить h - полное количество часов и m - полное количество минут, прошедших от начала суток до того момента (в первой половине дня), когда часовая стрелка повернулась на f градусов (0

Answer 1

var h,m,f:integer;

BEGIN

readln(f);

h:=f div 30;

m:=(f mod 30)*2;

write(h,' ч ',m,' мин');

end.