Cho trước 4 số nguyên a,b,c,m.Xét đẳng thức axbyc=m, trong đó x,y là ký hiệu các phép toán ‘+’, ‘-‘, ‘*’. Chẳng hạn cho a=3, b=4, c=5, m=17 thì x là ‘*’, y là ‘+’ ( vì 3*4+5=17.
Dữ liệu vào từ file BT.INP chỉ có 1 dòng chứa 4 số a,b,c,m.
Kết quả ghi ra file BT.out chứa dòng đẳng thức axbyc=m trong đó x và y lần lượt là ký hiệu ‘+’,’-‘ hoặc ‘*’, nếu không có nghiệm thì ghi là 0
BT.INP BT.OUT
3 4 5 17 3*4+5=17
Lời giải
program bt;
uses crt;
var a,b,c,M:integer; f:text;
{------}
procedure nhap;
begin
assign(f,’BT.INP’);
reset(f);
read(f,a,b,c,m);
end;
{------}
procedure ghi;
begin
assign(f,’BT.OUT’);
rewrite(f);
end;
{------}
procedure dong;
begin
close(f);
end;
{-----}
function tinh(a,b,x:integer):integer;
begin
case x of
1: tinh:=a+b;
2: tinh:=a-b;
3: tinh:=a*b;
end;
end;
{---}
function xuat(x:integer):char;
begin
case x of
1: xuat:=`+`;
2: xuat:=`-`;
3: xuat:=`*`;
end;
end;
{------}
procedure xuly;
var x,y,kq,dem:integer;
begin
dem:=0;kq:=0;
for x:=1 to 3 do
for y:=1 to 3 do
begin
if y=3 then kq:=tinh(a,tinh(b,c,y),x) else
kq:=tinh(tinh(a,b,x),c,y);
if kq=m then
begin
dem:=dem+1; writeln(f,a,xuat(x),b,xuat(y),c,`=`,m);
end;

end;
if dem=0 then write(f,0);
end;
{----}
begin
clrscr;
nhap;
dong;
ghi;
xuly;
dong;
end.