Program Qwerty123777; uses crt; var x,y:real; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln(); writeln('Программа находит значение функции y=(2x-4)/(3xx+11)'); write('Введите значение х '); readln (x); y:=(2*x-4)/(3*x*x+11); writeln('*** Вычисляю... ***'); writeln('y=', y:8:2); ; end.
uses crt;
var
x,y:real;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа находит значение функции y=(2x-4)/(3xx+11)');
write('Введите значение х '); readln (x);
y:=(2*x-4)/(3*x*x+11);
writeln('*** Вычисляю... ***');
writeln('y=', y:8:2); ;
end.
uses crt;
var x,y:real;
begin
clrscr;
writeln('введите x');
readln(x);
y:=(2*x-4)/(3*x*x+11);
writeln('y=', y);
readln;
end.