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

Program fareng;  

Var  

  x,y:real;  

Begin  

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

 read(x);

 y:=1.8*x+32;

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

end.

Пояснення:

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

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

----

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

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

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

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

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

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

32 - вопроса, 32 - ответа