Блог учителя Информатики

Решение задачи Begin31


Условие задачи:

Дано значение температуры T в градусах Фаренгейта. Определить значение этой же температуры в градусах Цельсия. Температура по Цельсию TC и температура по Фаренгейту TF связаны следующим соотношением: TC = (TF − 32)·5/9.


uses
  PT4;

var
  Tf, Tc: real;

begin
  Task('Begin31');
  read(Tf);
  Tc := (Tf - 32) * 5 / 9;
  write(Tc);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий