ЕСТЬ ОШИБКИ? 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.

Question

ЕСТЬ ОШИБКИ? 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.

ЕСТЬ ОШИБКИ? 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.

Гость

Ответ(ы) на вопрос:

Accepted Answer

Гость

Нет,всё правильно.........