Информатика

Василида

20 июня, 12:06

Pogram lb02;

var x:integer;

y:real;

begin

writeln ('введите x') ;

reardln (x) ;

if (x>3) and (x<=7) then y: = (x*x*x) + exp (1/5*ln (x)) else;

if (x=7) then y:=x + (1/10 * (x) + exp (1/3*ln (x))) else;

if (x=0) and (x<0) then y:=sqrt (abs (x+sin (x))) ;

writeln ('x=','y=') ;

readln

end.

правильно или нет