Сделайте программу, которая переводит значение температуры из градусов по шкале Цельсия в градусы по шкале Фаренгейта. напишите на pascal

Для начала нам понадобится переменная, которая будет содержать значение температуры по шкале Цельсия. Назовем ее temperature_Cel.

Также нам нужна будет переменная, которая будет содержать значение температуры по шкале Фаренгейта. Назовем ее temperature_Far.

var temperature_Cel, temperature_Far: real;

begin

writeln ("Задайте температуру по шкале Цельсия");

read (temperature_Cel);

Чтобы найти значение в другой шкале, мы умножим temperature_Cel на 9/5, а потом прибавим 32:

temperature_Far : = temperature_Cel * 9/5 + 32;

Значение найдено. Завершаем программу словом end.