Программа в pascal, переводящая градусы цельсися в градусы фаренгейта и градусы кельвина. f=1.8c+32, где f-градусы фаренгейта, с-градусы цельсия. k=c+273, где k-градусы кельвина, с-градусы цельсия

Var

c, k, f: real;

begin

Write ('Введите температуру в градусах Цельсия: ') ;

Readln (c) ;

k : = c + 273;

f : = 1.8 * c + 32;

Writeln ('По шкале Кельвина: ', k:0:1, ', по шкале Фаренгейта: ', f:0:1)

end.

Тестовое решение:

Введите температуру в градусах Цельсия: 36.6

По шкале Кельвина: 309.6, по шкале Фаренгейта: 97.9