zadach210.BAS

{* Задача210 *}

REM basic

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


CLS

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

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

timeD = h + m + sd              

PRINT "Целые - это минуты "; timeD

End