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

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


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

Найти значение функции y = 4(x−3)6 − 7(x−3)3 + 2 при данном значении x.


uses
  PT4;

var
  x, y, t: real;

begin
  Task('Begin26');
  read(x);
  t := x - 3;
  y := 4 * t * t * t * t * t * t - 7 * t * t * t + 2;
  write(y);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

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