ЕСТЬ ОШИБКИ? program z1; uses crt; var a,b,c:integer y:real; begin crlscr; Writeln('vvedi 3 chisla'); Readln(a,b,c); if a>=0 then y:=a+b+c else if(a0 then y:=exp(a*In(c)) else y:=0; Writeln(y:2:2); readln; end.
More Questions From This User See All