Tìm kiếm:

Ai có ***** ( hay ******) của crazy talk 4.6 thì post lên giùm em ( hic, em tìm mấy ngày mà hôk thấy :( ) <thanks các pác nhiều nhiều >

Bài này có thuật toán chuẩn đó bạn <------ cái này mình hôk nhớ nhưng cứ copy lại :)( quay lui thì mệt lắm ):
Procedure Solve;
var i,j,k,tg,u,v,d:longint;
a:array[1..1000] of integer;

Begin
...

ai đó giúp em đi mà < cầu xin đó >

hôk ai chỉ giùm em àh ?????

mấy bài này còn cần xét thêm số cho lớn tới mức nào, nó mà cứ khoảng 1000 chứ số thì viết cái hàm tính cũng mệt

Search trên mạng mất 2h đồng hồ , để máy down mấy ngày với mấy lần lỗi, cuối cùng em cũng down được codegear delphi 2007. Đang định thử thì nó bắt nhập đăng kí :(. Pác nào có seri(al)( hay cách...

Search trên mạng mất 2h đồng hồ , để máy down mấy ngày với mấy lần lỗi, cuối cùng em cũng down được codegear delphi 2007. Đang định thử thì nó bắt đăng kí :(. Pác nào có seri(al)( hay cách cra(ck)) ...

Tui chỉ đóng góp cho cái tổ hợp mà bạn cần !
Dù muốn đi thế nào thì bạn cũng phải đi m lần sang phải và n lần xuống dưới
------------> A={0,0,0,0,...,1,1,1,1,...}
có m số 0 và n số 1 (0 là sang...

toàn bài dễ! nhưng các bạn nên thông cảm cho những người mới học pascal <ngày đầu ai chẳng thế>

Hix, lời giải của mình sai bét ! chắc phải qhđ như 1+1=2 thôi!
Còn về yêu cầu bài toán thì là tìm dãy con chia hết dài nhất
vd như dãy 3 6 12 24 48
<nhân đây cũng xin hỏi bạn duy : bạn học 10a2...