Var y:real;x:integer;
Begin
For x:=-6 to 6 do
If (x<>-4)and (x<>4) then begin
Writeln;
Y:=(x-4)/(x+4)+(x+4)/(x-4);
Write('При x=', x, ' y=', y) ;end
Else begin writeln;write('Нет смысла') ;end;
End.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Var y:real;x:integer;
Begin
For x:=-6 to 6 do
If (x<>-4)and (x<>4) then begin
Writeln;
Y:=(x-4)/(x+4)+(x+4)/(x-4);
Write('При x=', x, ' y=', y) ;end
Else begin writeln;write('Нет смысла') ;end;
End.