Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Работы полностью)) / Практика / 2.40 / Отчет
.docxОтчет по работе №2.40
Задание
Код работы:
CLS
COLOR 10.7
INPUT "Vvedite gradusi="; g
IF g > 720 THEN
PRINT "Nevrnii gradus"
ELSE
z = g * 720
m = ((z / 6) / 60) / 60
t = ((z / 6) / 60) / 12
q = ((z / 6) / 60) / 12
m = FIX(m)
IF m < 24 THEN
PRINT m; "4ACOB"
ELSE
w = m - 24
m = m - w
PRINT m
END IF
t = FIX(t)
IF t < 60 THEN
PRINT t; "MNHYT"
ELSE
e = t - 60
PRINT e; "MIHYT"
END IF
END IF
q = FIX(q)
IF q < 60 THEN
PRINT q; "CEKYHD."
ELSE
j = q - 60
PRINT j; "CEKYHD"
END IF
Скриншот программы с ответом: