Напишите на языке Паскаль программу вычисления y по формуле: y=2x-5/x-1, где x - данное целое число.

Составим программу вычисления значения функции y по формуле y=2x-5/x-1 (x - данное целое число) на языке программирования Pascal ABC. Введем обозначения следующих величин: пусть y - значение функции, которую надо найти, а х - заданное число. Число х будем вводить с клавиатуры во время выполнения программы, используя команду readln.

program zadacha1;

uses crt;

var x:integer; y:real;

begin

writeln ('vvedite znachenie chisla x:');

readln (x); {Ввод значения числа х}

y:=2*x-5/x-1; {Вычисление значения функции у}

writeln ('y=', y); {Вывод результата вычисления значения функции у на экран}

end.