Question

Написать программу на Pascal,у меня есть пример программы для другого условия,может чем то поможет.

Answer 1

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.