var
x,y : real;
begin
x := -1;
while x <= 5 do
y := exp(-x) + 6.83 * x;
if y > 2 then
writeln('X =',x:5:2,' || Y = ',y:5:2);
end;
x := x + 0.2;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
x,y : real;
begin
x := -1;
while x <= 5 do
begin
y := exp(-x) + 6.83 * x;
if y > 2 then
begin
writeln('X =',x:5:2,' || Y = ',y:5:2);
end;
x := x + 0.2;
end;
end.