Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

ЕСТЬ ОШИБКИ?

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.

Ответ оставил Гость

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