Чтение, скрытый, архивный,системный, музыкальный, с паролем
var
x, y: real;
begin
read(x);
y := 2 * cos(x) - tan(x);
x := 4 * x * 4 * 4 * x * x - 5 * x * x * 5;
writeln('y = ', y, ' / ', x, ' = ', y / x);
writeln('Вторая задача = ', abs(x * x * x - 5));
end.
Ответ:
var a,b,h,f,x:real;
begin
write('Введите a,b,h');
readln(a,b,h);
x:=a;
writeln('x':8,'F(x)':10);
while x<=b do
begin
f:=1/2*sin(x/4)+1;
writeln(x:8,f:10:3);
x:=x+h;
end
end.
Объяснение:
Это пример, там уже по своему как надо можешь поставить)