var x:integer; y:real;
begin
readln (x);
y:=x+2.5;
y:=y*x;
y:=y-1;
y:=y*x;
y:=y+1;
writeln (y);
end.
program z1;
var x: integer;
y: real;
begin
read(x);
y:=2*sin(3*x-12*x);
writeln('y равен: ', y);
end.
Либо
program z1;
var x: integer;
y: real;
begin
read(x);
y:=2*(sin3*x)-12*x;
writeln('y равен: ', y);
end.
Объяснение:
Написал 2 варианта, поскольку формула дана вам была не до конца. В ней скорее всего должны стоять где-то скобки. Если нет, то запишите эту же программу (из любых), только уберите в формуле скобки. Надеюсь объяснил понятно
Вариант по той формуле, как она дана (как я её понял
program z1;
var x: integer;
y: real;
begin
read(x);
y:=2*sin(3*x)-12*x;
writeln('y равен: ', y);
end.
