Question

3. Составить программу, которая переводит значение температуры из шкалы Цельсия в шкалу Фаренгейта по формуле TF = 1.8TC + 32​

Answer 1

Ответ:

rogram fareng;  

Var  

 x,y:real;  

Begin  

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

read(x);

y:=1.8*x+32;

WriteLn('В Фаренгейтах это = ',y:1:2);  

end.

Пояснення:

Название програми

Оглашение переменных

----

Начало програми

Вывод на экран фрази "Введите в градусах Цельсия"

Ввод с клавиатуры значения переменной х

Присвоение переменной у значение градусов Фаренгейта

Вывод на экран "В Фаренгейтах это = " и значения переменной у с 2 знаками после запятой

Конец програми.

Объяснение: