Конкретный вариант:
uses crt;
var x:<em>real</em>;
begin
x:=21.17;
writeln((5*x+0.36)/(0.77+sqr(x)):3:3);
<span>end.
</span> Более универсальный:
uses crt;
var x:<em>real</em>;
function y(a:<em>real</em>):<em>real;</em>
begin
writeln(((5*x+0.36)/(0.77+sqr(x))):3:3);
end;
begin
read(x);
y(x);
end.
Что надо сжечь сделать напиши в то я не поняла ))
Var x,y:real;
begin
write('x=');readln(x);
write('y=');readln(y);
if (x*x+y*y<=1)and(y>=x)and(y<=-x+1)
then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
<span>end.</span>