Bài pascal hay..

viết chương trình tìm tất cả các cách thay dấu ? bởi các phép tính +,-,*,/ sao cho biểu thức dưới đây có nghiệm đúng...
((((1?2)?3)?4)?5)?6=36
Đấy chỉ là 1 trường hợp cụ thể..ai có thể code bài toán tổng quát thì post lên nhé c:angry:

Code:

---

uses wincrt;     
var i1,i2,i3,i4,i5,a,b,c,d,e,f,g:integer;
    s,dau:string;
function tinh(i:integer;a,b:real):real;
var t:real;
begin
case i of
1: t:=a+b;
2: t:=a*b;
3: t:=a-b;
4: t:=a/b;
end;
tinh:=t;
end;
begin
clrscr;
writeln('Code: Vo Doi - hamrong.net');
writeln('Phuong trinh tong quat: (((((a?b)?c)?d)?e)?f)=g');
write('Nhap a, b, c, d, e, f, g: '); readln(a,b,c,d,e,f,g);
dau:='+*-/';
for i1:=1 to 4 do
for i2:=1 to 4 do
for i3:=1 to 4 do
for i4:=1 to 4 do
for i5:=1 to 4 do
if tinh(i5,tinh(i4,tinh(i3,tinh(i2,tinh(i1,a,b),c),d),e),f)=g then
writeln('(((((',a,dau[i1],b,')',dau[i2],c,')',dau[i3],d,')',dau[i4],e,')',dau[i5],f,')=',g);
readln;
end.

---

Bây giờ đọc mới thấy bài pascal hay phết! c:adore:http://i0006.photobucket.com/albums/...s2cp-1.jpg.jpghttp://i0006.photobucket.com/albums/...s2cp-1.jpg.jpg