10 lines
190 B
Text
10 lines
190 B
Text
DO
|
|
PRINT "Kelvin degrees (>=0): ";
|
|
INPUT K
|
|
LOOP UNTIL K >= 0
|
|
|
|
PRINT "K = "; STR$(K)
|
|
PRINT "C = "; STR$(K - 273.15)
|
|
PRINT "F = "; STR$(K * 1.8 - 459.67)
|
|
PRINT "R = "; STR$(K * 1.8)
|
|
END
|