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.

Answer 1

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