Kết quả tìm kiếm

Đầu tiên là lập một hàm đã( hàm xem xem một số có phải số nguyên tố hay không ): ------------------------------------------------------- var j:integer; function snt(x:integer):boolean; begin j:=1; repeat j:=j+1; until (j=x-1) or (x mod j=0); if (j=x-1) or (x=2) then snt:=true else...

Trước hết tôi hỏi ông Yurisha học lớp mấy,trường nào,quận nào đã mà bài làm sao lại phải theo ý thầy giáo chứ,chỉ cần thuật toán hay là được rồi, làm string tuy có lợi cho nhiều bài( những bài như thay đổi trật tự của các chữ số trong một số hay nhiều dạng khác kiểu như thế ....) vì có thể rút...

Dễ thôi đâu có gì( chỉ có hơi tốn công sức, và có khi sẽ không làm được công việc ở trang trại ) sáng nào cũng đi hái hoa đầy cả cặp luôn đi, sau đấy đem đi tặng, rồi vào cái hang ở gần nhà tắm nước nóng ( ở chỗ có cái thác ) đào mấy cái mấy viên đá ở đó rồi ra nhà ông Blacksmith làm vòng đeo...

việc gì phải share cho mất thời gian , lên google vào phần hình ảnh mà tìm ấy, muốn kiếm ảnh về cái gì thì đánh tên nó ra, hiện ra một đống tha hồ mà chọn, khỏi phải nhờ share :D :D :D :D

Nói kĩ đề bài đi chứ ,nói thế thì ai mà hiểu được , mà không hiểu thì làm gì có làm giúp được chứ :hug: :'>

Mất công nói vậy sao hổng có ai trả lời vậy hen, hình như cái topic này chả ai thèm quan tâm thì phải , chán thật đấy ::( :D :-s

Nhầm........ :hug: Phải là Yurisha chứ không phải Yushira........hehehe Cố gắng gửi nhiều bài nhé, càng nhiều càng tốt , Tết mới có việc để làm nhanh lên nha. Nói thêm vài câu cho đỡ bị trừ Mp.....hihihihi :D :D

Đúng là chán , mình làm bài rõ dài mà chả chả thấy ai cộng cho mình chút MP nào với cả EXP nữa, nhưng không sao......... To yushira: còn bài nào nữa thì gửi nốt lên đây tui làm hộ cho, càng nhiều càng tốt, hy vọng lúc nào đấy sẽ được cộng điểm.....hehehe :D :D :D

Tui làm nốt bài 2 cho: :D :D :D Bài 2_ Uses crt; var t,tu,mau,x:real; a,j,n,i:integer; function gt(o:integer):longint; begin a:=1; for j:=1 to o do a:=a*i; gt:=a; end; begin clrscr; write(‘nhap x=’);readln(x); repeat write(‘nhap so lan la n=’);readln(n); until (n<20) or...

Jade nịna nói đúng đấy , tui chưa chơi thử pokemon bao giờ nhưng bọn nó bảo chơi chán bỏ xừ, chán hơn cả mấy trò pokemon trên GBA , pokemon cũng toàn level 100 hết cả ,chỉ có chọn đòn rồi đánh thôi..........chán quaaaaaaaaaaaaaaaaaa'!!!!!!! ::(

Còn bài 2 chưa làm vì chưa có thời gian suy nghĩ ,để bao giờ nghĩ xong thì tui làm nốt cho, còn nếu có người khác giải hộ thì càng tốt!

Vẫn còn thiếu đó ,còn mấy trang nữa như: http://www.mythvn.com/ http://www.9down.com/ và còn nhiều nữa, về kiếm thêm đi #>:) :devil:

Bài 1_ Uses crt; Var a,b:array[1..100]of integer; i,n,j,m:integer; begin clrscr; write(‘nhap so phan tu la n=’);readln(n); for i:=1 to n do begin write(‘a[‘,i,’]=’);readln(a[i]); end; writeln(‘tung phan tu cua mang chuyen ve he nhi phan la:’); for i:=1 to n do begin j:=1...