Cach' giai~ bt 25/9/08 ne` !!!

program bt;
const fo='bt.out';
a:array[1..4] of char =('+','-','*','/');
type mang=array[1..6] of integer;
var f:text;
function Tinh(a,b,c:integer):integer;
begin
if c=1 then Tinh:=a+b;
if c=2 then Tinh:=a-b;
if c=3 then Tinh:=a*b;
if c=4 then
if a mod b=0 then Tinh:=a div b
else Tinh:=0;
end;
procedure xuly;
var i,j,k,g,h:integer;
begin
assign(f,fo);
rewrite(f);
for i:=1 to 4 do
for j:=1 to 4 do
for k:=1 to 4 do
for g:=1 to 4 do
for h:=1 to 4 do
if (Tinh((Tinh((Tinh((Tinh((Tinh(1,2,i)),3,j)),4,k)),5,g)),6,h)=35) then
writeln(f,'((((1',a[i],'2)',a[j],'3)',a[k],'4)',a[g],'5)',a[h],'6)=35');
close(f);
end;
begin
xuly;
end.

Xong roi` doa' cu' bung zo la` dc

=)) Thầy phước lên sửa bài đê =DDD

Bóc tem

Check thử bài này xem
program bai2;
const
fo='bai2.out';
b:array[1..4] of char=('+','-','x',':');
var f:text;

function tinh(a,b,c:integer):integer;
begin
if c=1 then tinh:=a+b;
if c=2 then tinh:=a-b;
if c=3 then tinh:=a*b;
if c=4 then if (a mod b)= 0 then tinh:=a div b
else tinh:=0;
end;

procedure xuly;
var i,j,k,g,h:integer;
begin
assign(f,fo);
rewrite(f);
for i:=1 to 4 do
for j:=1 to 4 do
for k:=1 to 4 do
for g:=1 to 4 do
for h:=1 to 4 do
if (tinh((tinh((tinh((tinh(1,2,i)),3,j)),4,k)),5,g)),6,h))=35) then
writeln(f,'((((1',b[i],'2)',b[j],'3)',b[k],'4)',b[g],'5)',b[h],'6 = 35');
close(f);
end;

begin
xuly;
end.

CHUAN...HOP TIEU CHUAN ZAO THUNG RAC