sieunhan10 Chồi
Tổng số bài gửi : 4 Registration date : 25/09/2008
| Tiêu đề: bai` tap ngay 25/9/2008 25/9/2008, 2:24 am | |
| 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. | |
|