Bài 2 thì nói thuật toán thui nhé vì tận 100 chữ số nên dùng luôn biến s (string) để lưu số Thuật toán: đầu tiên cho s = x Dần dần tăng s lên 1...
Bài 1: uses crt; var n,i,j,try:integer; a:array[1..100,1..100] of integer; function kt:boolean; var m:integer; begin kt:=true;...
Thế input của bạn là gì Phải tùy theo input mới có thể có thuật toán đc. chứ
Bác Korangar này suốt ngày quảng cáo Bài 1: uses crt; var n,j:integer; q:boolean; begin clrscr; write('Nhap N: '); readln(n); q:=true; for j:= 2...
FixPascal Đây là đường link bạn down về thử xem
Gọi F[i,j] là số lãi nhiều nhất có thể lấy được bằng cách chọn trong số công việc từ 1 ---> i với số tiền phải đầu tư lớn nhất là j. lập mảng Lak...
Nếu ko dùng chuỗi Bây giờ nó cho nhập vào 1 số lớn thì biết làm thế nào Ví dụ nó nhập một số lớn hơn 10 chữ số thì nên dùng xâu hơn
Cái bài đối xứng chỉ cần dx:=true; for i:=0 to length(s) div 2 do if s[i+1] <> s[length(s)-i] then begin dx:=false;...
Oh sorry các bạn trong cái bài in tam giác cân đó thì thay i*i-1 = 2*i-1 nhé Sorry To hoabomby: Uhm về cơ bản thì như thế này thì đủ rồi đó Còn...
Nếu hàng cuối cùng viết hết các kí tự sao thì bạn sửa lại 1 chút thôi Còn ko phải viết hết kí tự sao ở hàng cuối cùng thì trên kia hi vọng là đúng
:p Sorry quên quên Nếu tam giác rỗng là tam giác vuông thì dễ rồi Còn nếu viết dưới dạng tam giác cân thì sẽ như sau Đầu tin cho 1 vòng for viết...
Đầu tin ta lập 1 mảng A có phần tử từ 0--->255 Sau đó nhập xâu S Bắt chước dùng C xem sao: :D for (i=1;i<=length(s);i++)...
Hix mình mới học cấp 3 thui Mà cấp 3 toàn dạy pascal thôi hà Có dạy cái gì nữa đâu Mình có mấy bài muốn đưa lên cho các bạn: Bài 1: Nhập 1 xâu kí...
3/Tìm USC lớn nhất và BSC nhỏ nhất của n Đã là USC và BSC thì phải có 2 số m,n chứ Đầu tin tìm USC xong rùi BSC=m*n / USC Thuật toán tìm USC của...
Bạn chỉ cần sắp xếp dãy A xong rùi đẩy từng phần tử chẵn sang mảng chẵn, phần tử lẻ sang mảng lẻ là xong thui Đây là chương trình uses crt;...
Dãn cách tên bằng dấu phẩy(,).