10 lines
160 B
Text
10 lines
160 B
Text
|
Do
|
||
|
|
Input "Kelvin degrees (>=0): ";K
|
||
|
|
Loop Until (K >= 0)
|
||
|
|
|
||
|
|
Print "K = ";K
|
||
|
|
Print "C = ";(K - 273.15)
|
||
|
|
Print "F = ";(K * 1.8 - 459.67)
|
||
|
|
Print "R = ";(K * 1.8)
|
||
|
|
End
|