program lol; var a,b,x:real; shag:real; T:real; begin Shag:=0.5; a:=2.1; b:=-0.29; x:=0; While x<=7 do begin If x<2.8 then T:=(a+b)/exp(-x)+sin(x); If (2.8<=x) and (x<6) then T:=(A+B)/(x+1); If X>=6 then t:=exp(-x)+Sin(X); Writeln('при Х=',x,' T=',t:4:2); X:=x+shag;
program lol;
var
a,b,x:real;
shag:real;
T:real;
begin
Shag:=0.5;
a:=2.1;
b:=-0.29;
x:=0;
While x<=7 do
begin
If x<2.8 then
T:=(a+b)/exp(-x)+sin(x);
If (2.8<=x) and (x<6) then
T:=(A+B)/(x+1);
If X>=6 then
t:=exp(-x)+Sin(X);
Writeln('при Х=',x,' T=',t:4:2);
X:=x+shag;
end;
end.
надеюсь Если что нетак пиши