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

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


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

Найти значение функции y = 3x6 − 6x2 − 7 при данном значении x.


uses
  PT4;

var
  x, y: real;

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

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