9 lines
181 B
Text
9 lines
181 B
Text
repeat
|
|
input "Kelvin degrees (>=0): " K
|
|
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
|