{* Задача209 *}

REM basic

' Перевести время заданное в часах, минутах и секундах к
' виду десятичного числа c 4 знаками после запятой, в котором
' целые - это часы.


CLS

INPUT "Введите часы    ", h
INPUT "Введите минуты  ", m
INPUT "Введите секунды ", s

md = m / 60                     
md = CInt(md * 100) / 100       

sd = s / 60                     
sd = CInt(sd * 100) / 10000     

timeD = h + md + sd             

timeD = CLng(timeD * 10000) / 10000                             

PRINT "Целые - это часы   "; timeD

End