Найти ошибку пишет : неверно сконструированное форматное выражение там, где х=х+0,2. посчитать функцию на интервале от 0,1 до 1,3 с шагом 0,2

program abc2;

var x,y: real;

begin

x: =0.1;

repeat

if (sqr(x)-1.8*x+1.2)=0 then

writeln('x=',x,'нельзя вычислить функцию')

else

y: =(364*sqr(x)*exp(-7.5*x))/(sqr(x)-1.8*x+1.2);

if y> 1 then

writeln('y=',y: 8: 3);

x: =x+0.2:

until x> 1.3;

end.

deadcreamrus    3   09.12.2019 18:23    27