Определить угол в градусах между положением часовой стрелки в начале суток и ее положением в h часов - Pascal ABC

Формулировка задачи:

3. Определить угол в градусах между положением часовой стрелки в начале суток и ее положением в h часов, m минут и s секунд.

Код к задаче: «Определить угол в градусах между положением часовой стрелки в начале суток и ее положением в h часов - Pascal ABC»

textual
var h,m,s:integer;
    u:real;
begin
repeat
writeln('Введите время в часах, минутах, секундах');
readln(h,m,s);
until(h in [0..23])and(m in [0..59])and(s in [0..59]);
h:=h mod 12;//за половина суток
s:=h*3600+m*60+s;//прошло секунд
u:=360*s/12/3600;//угол
write('Угол=',u:0:2,' градусов')
end.

5   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ