E_Learning, sharing with the happiness !

Năm học 2008-2009 : Năm học ứng dụng CNTT để nâng cao chất lượng giảng dạy
 
Trang ChínhTrang Chính  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng Nhập  

Share | 
 

 MỚI BOOT LẠI !!!!!!!!!!!!!!!!!

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
mikevo107

Lá
avatar

Nam
Tổng số bài gửi : 8
Age : 23
Registration date : 25/09/2008

Bài gửiTiêu đề: MỚI BOOT LẠI !!!!!!!!!!!!!!!!!   25/9/2008, 2:41 am

program bt;
const a:array[1..4]of char=('+','-','*','/');
fo='bt2.out';
{------------------------------}
function tinh(a,b,c:integer):integer;
begin
case c of
1:tinh:=a+b;
2:tinh:=a-b;
3:tinh:=a*b;
4:if a mod b=0 then tinh:=a div b
else tinh:=0;
end;
end;
{-----------------------------}
procedure xuly;
var f:text; 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 {main}
xuly;
end.

MẠI ZÔ!!!!!! MẠI ZÔ!!!!!!!!!!! bounce bounce bounce
Về Đầu Trang Go down
Xem lý lịch thành viên
 
MỚI BOOT LẠI !!!!!!!!!!!!!!!!!
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
E_Learning, sharing with the happiness ! :: GÓC KHUẤT :: THÙNG RÁC-
Chuyển đến