Программа на repeat в паскале, в чем может быть дело? program zad6_repeat ; var f,f1,x,a,h: real; begin writeln('введите а '); readln(a); x: =-3; repeat f: =exp(-a*x)+exp(a*x)/f1; writeln('f(',x: 8: 2,') =',f: 8: 2); if trunc(f1) mod 2 < > 0 then; writeln('не вычисляется при x=',x: 8: 2); x: =x+1; until x> 0; end. результат введите а 2 f( -3.00) =infinity не вычисляется при x= -3.00 f( -2.00) =infinity не вычисляется при x= -2.00 f( -1.00) =infinity не вычисляется при x= -1.00 f( 0.00) =infinity не вычисляется при x= 0.00

koool3    3   05.10.2019 07:50    4