Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- x,y: real;
- n:byte;
- begin
- writeln('ввести x');
- readln(x);
- if x<=-05 then
- begin
- y:=cos(sqrt(exp(yln(1/5)(abs(x+ln(abs(x))))))); // <<<--- Ожидалось имя процедуры или функции
- n:=1
- end
- else if(x>-0,5)and(x<=0,5)then
- begin
- y:=cos(exp(abs(x+ln(abs(x)))));
- n:=2
- end
- else
- begin
- y:=exp((yln(1/3)))(exp(x))(sqrt(x+1))-pi;
- n:=3
- end;
- writeln('x=',x:6:2,'y=',y:6:2,'n=',n:3);
- end.
Add Comment
Please, Sign In to add comment