Денис Киселевич
Профи
(944)
6 лет назад
program g1;
Var x, y, z, q1 : real;
begin
Writeln('введите x');
Readln(x);
Writeln('введите y');
Readln(y);
Writeln('введите z');
Readln(z);
q1:=cos(x)*y-1/z+abs(x*x-56);
writeln(q1);
end.
вот держи работает 100%
cosx y-1/z+|x^2-56|
Заранее благодарю всех, кто отозвался.