Recent Content by cuongtk2002

chịu ! ........................................................................................

;) ct đây ! function check(st1,st2:string):boolean; begin if st1[5] = st2[5] then check:=true else check:=false; end; var st1,st2:string; begin readln(st1,st2); if check(st1,st2) then write('co trung') else write('ko trung'); readln end;

>>Đề bạn chép thiếu dấu mũ ! ;) (3d-1) -> 3^d - 1 1 ≤ a ≤ 109 -> 1<= a <= 10^9 >> Cách làm ! ;) {N lớn nên biến ''tính toán'' khai báo int64 (hoặc longint) cho tránh lỗi} B1: Duyệt các số d từ 1 cho đến nguyên a. B2: Nếu d là ước của N thì tính (3 mũ d) rồi (trừ 1). B3: Lấy kết quả...

LÀM ĐC MỖI Ý a ! JFBQ00125061225b var a,b:array[0..100] of longint; i,n,j,m,s,tam,k:longint; begin readln(n,m); for i:=1 to n do readln(a); for j:=1 to m do readln(b[j]); for i:=1 to n-1 do for j:=i+1 to n do if a<a[j] then begin tam:=a; a:=a[j]; a[j]:=tam; end; for i:=1 to m-1 do for...