1) Program n1; var x,y,z: real; begin readln(x,y); if x+y<0 then z:=0.8+x else if x+y>5 then z:=x*x+y*y+5 else z:=y*x; write('z=',z); end. 2) Program n2; var a,b: real; begin readln(a,b); if a-b>0 then write('разность положительная') else write('разность не положительная'); end.
Answers & Comments
Verified answer
1)Program n1;
var x,y,z: real;
begin
readln(x,y);
if x+y<0 then z:=0.8+x else if x+y>5 then z:=x*x+y*y+5 else z:=y*x;
write('z=',z);
end.
2)
Program n2;
var a,b: real;
begin
readln(a,b);
if a-b>0 then write('разность положительная') else
write('разность не положительная');
end.