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

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


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

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


uses
  PT4;

var
  Tf, Tc: real;

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

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