mình làm bằng turbo pascal mà
À vậy để mình tải turbo về chạy
mình làm bằng turbo pascal mà
À vậy để mình tải turbo về chạy
Còn cái này để mai tôi up cho. Giờ tui phải ôn bài mai kiểm tra
Haha,,ta làm được rồi ....nhuuwng mà sao cái ct thì chạy được trên free mà không chạy được trên turbo,,,,lý giả mình vs ....
Bạn lý giải hộ rồi mình post bài lên cho ...
Đức HD Trần:
AK36 Trường THPT Quang Trung tỉnh Hải Dương
Đức HD Trần:
AK36 Trường THPT Quang Trung tỉnh Hải Dương
Master Kaiser
Liên hệ facebook : https://www.facebook...uyenhoanganh238
Chào các pro ai có ý tưởng làm bài này xin cho ý kiến
Xét số nguyên dương X và gọi S là tổng tất cả các ước dương của 2004X .
Cần tính phần dư của S cho 29. Ví dụ, với X=1, các ước dương của 20041 là 1, 2, 3, 4, 6, 12, 167, 334, 501, 668, 1002 và 2004. Do đó S = 4704 và số dư của S chia cho 29 là 6.
Input: Gồm nhiều bộ test, mỗi bộ là một số nguyên X (1 ≤ X ≤ 107). Bộ test với X = 0 để kết thúc chương trình và không cần xử lý.
Output: Với mỗi bộ test, in ra một kết quả của số dư S chia cho 29 trên 1 dòng.
Example:
Input
1
10000
0
Output
6
10
Bài viết đã được chỉnh sửa nội dung bởi hocpascal: 03-09-2016 - 19:59
Code được rồi các pro xem hộ cái
Mời các pro code bài này
Tìm a,g biết: (ag)^4=a*****g
Pro xem hộ cách giải bài này với số lớn nha
Cho số nguyên dương N, người ta tạo ra số nguyên M bằng cách viết liên tiếp nhau các số nguyên từ 1 đến N. Ví dụ với N=13, ta có M=12345678910111213. Người ta tiến hành thu gọn M bằng cách :
Trong số M lần lượt xóa tất cả các chữ số ở vị trí chẵn thu được số M1, sau đó trong M1 ta lại xóa tất cả các số ở vị trí lẻ thu được số M2, rồi lại xóa tất cả các chữ số ở vị trí chẵn trong M2 , … cho đến khi chỉ còn lại một chữ số.
M=12345678910111213 => M1=135790123 => M2 = 3702 => M3=30 => M4=0
Yêu cầu : Cho số nguyên dương N( 1<N<10^6 +1). Hãy xác định chữ số còn lại sau quá trình thu gọn số M tương ứng.
Nhập vào từ bàn phím một số nguyên dương N.
Xuất ra màn hình chữ số còn lại sau khi thu gọn số M.
đây là cách của mình cho bài hoán vị chữ cái
thay đổi chút là sẽ thành hoán vị dãy số từ 1-n nên rất tiện
Bài viết đã được chỉnh sửa nội dung bởi Duongdz2k7: 26-06-2021 - 22:29
Học , học nữa , học mãi
Luôn không ngừng cố gắng để đạt thành quả
Giup toi chuong trinh pascal: chen mang b gom m phân tư vào mãng a gồm n phần tử tại vị trí k
Học , học nữa , học mãi
Luôn không ngừng cố gắng để đạt thành quả
Hơi lâu chút
Học , học nữa , học mãi
Luôn không ngừng cố gắng để đạt thành quả
đây là cách của mình cho bài hoán vị chữ cái
thay đổi chút là sẽ thành hoán vị dãy số từ 1-n nên rất tiện
program bt1;uses crt;var b,c:boolean;i,j,z:integer;t:char;s:string;a:array[1..100] of string;beginclrscr;write('nhap xau:');readln(s);z:=1;a[z]:=s;b:=true;while b=true dobeginb:=false;for i:=2 to length(s) dobeginc:=true;t:=s[1];s[1]:=s[i];s[i]:=t;for j:=1 to z doif s=a[j] thenc:=false;if c=true thenbeginz:=z+1;a[z]:=s;b:=true;end;end;end;for i:=1 to z dowriteln(a[i]);readln;end.
bài này vẫn chưa hay lắm
program bt1;
bài này vẫn chưa hay lắm
program bt1;
uses crt;var a:array[1..100] of string;c:array [0..255] of char;s:string;d,i,j,r:integer;beginwrite('nhap xau:');readln(s);d:=length(s)*(length(s)-1);for i:=0 to length(s)-1 do beginc[i]:=s[i+1];end;for i:=1 to d do a[i]:='';for i:=1 to d dofor j:=1 to length(s)-1 dobeginr:=((((0-i)+length(s)*j)+d) mod d) div (length(s)-1);a[i]:=a[i]+c[r];end;for i:=0 to d-1 dowriteln(c[i mod length(s)],a[i+1]);readln;end.>> bài khá là khó hiểu, ứng dụng giải ngược (mk cx it sd)
thk anh nha!
nhưng em mới lớp 8 nên ko hiểu lắm !
bây giờ chỉ chơi hệ dễ hiểu thôi ạ haha !
Học , học nữa , học mãi
Luôn không ngừng cố gắng để đạt thành quả
0 thành viên, 1 khách, 0 thành viên ẩn danh