Написать прогу, переводящую значения температуры из шкалы Цельсия в шкалы Фаренгейта и Кальвера (F=1.8*nградусов цельсия+32

K=nградусов цельсия+273.15). В Pascal ABC.

Question

Жозефина

27 октября, 01:38

+2

Ответы (1)

Знаете ответ на вопрос?

Болеслав · Answer 1

var k, c, f:integer;

begin

read (c) ;

f:=c*1.8+32;

k:=c+273.15

writeln ('F=', f) ;

writeln ('K=', k) ;

edn.

Написать прогу, переводящую значения температуры из шкалы Цельсия в шкалы Фаренгейта и Кальвера (F=1.8*nградусов цельсия+32K=nградусов цельсия+273.15). В Pascal ABC.