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

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

Question

Агафоклия

11 сентября, 16:11

+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.