10 lines
197 B
Text
10 lines
197 B
Text
|
10 cls
|
||
|
|
20 input "Temperature in Kelvin: ", k
|
||
|
|
30 let c = k + 273
|
||
|
|
40 let r = ( 9 * k ) / 5
|
||
|
|
50 let f = r + 460
|
||
|
|
60 print c, " Celsius"
|
||
|
|
70 print f, " Fahrenheit"
|
||
|
|
80 print r, " Rankine"
|
||
|
|
90 shell "pause"
|