10 lines
181 B
Text
10 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
|