Question

Помогите пожалуйста!Даю 20 балов!Задание 5,6,7!Заранее спасибо!

Answer 1

5) 
program ex1;var x, y, z : integer;begin  x:= 17;  y:= -9;  if x < y then    z:= x * y  else    z:= y + x;  writeln(z);end.


6)
program ex1;var x, tmp : real;begin  readln(x);  if x<=0 then    tmp:=(sin(sqr(x)) - sqrt(power(x,3)+1))/(5*power(x,4)+ 3.5*x);  if (x>0) and (x<=4) then    tmp:=sqrt(x+sqrt(x+1))+4*x;  if x>4 then    tmp:= (1.44*abs(power(x,3)-1)-2.5*x)/(x+1);write(tmp);end.


7)
program ex1;var a,b,c:integer;begin  readln(a,b,c);  if (a>= -3) and (a<2) then     write (' a ');  if (b>= -3) and (b<2) then     write (' b ');  if (c>= -3) and (c<2) then     write (' c ');end.