Mot so BT Pascal nang cao

Bµi tËp Pascal VD 1: ViÕt CT nhËp vµo hai c¹nh cña HCN råi tÝnh chu vi, diÖn tÝch, ®êng chÐo cña HCN ®ã; tÝnh chu vi ®êng trßn ngo¹i tiÕp HCN. Cn2.pas Program HinhChuNhat ; Uses Crt ; Var a , b , d : Real ; Begin ClrScr ; Writeln ( ' Nhap vao 2 canh '); Readln (a , b); If (a > 0) And (b >0) Then Begin d := SQRT ( a*a + b * b) ; Writeln ('Chu vi la ',2*(a+b):0 :3); Writeln ('Dien tich la ',a*b:0:2); Writeln ('Duong cheo la ', d:0 : 3); Writeln ('Chu vi duong tron la ',Pi*d : 0 :4); End; Readln; End. Cn3.pas Program HinhChuNhat ; Uses Crt ; Var a , b , d : Real ; Begin ClrScr ; Writeln (' Nhap vao 2 canh '); Readln (a , b); If (a > 0) And (b >0) Then Begin d := SQRT (a*a + b*b); Writeln (' Chu vi la ',2*(a+b ):0 :3); Writeln (' Dien tich la ', a*b:0:2); Writeln (' Duong cheo la ', d:0 :3); Writeln (' Chu vi duong tron la ', Pi*d :0:4); End Else Writeln('Du lieu ngai vao khong hop le'); Readln; End. Cn4.pas Program HinhChuNhat ; Uses Crt ; Var a , b , d : Real ; Begin ClrScr ; Writeln ( ' Nhap vao 2 canh '); Repeat Readln ( a , b ) ; If (a<=0) OR (b<=0) Then Writeln('Du lieu khong hop le,moi vao lai'); Until (a > 0) And (b >0); d := SQRT ( a*a + b * b) ; Writeln (' Chu vi la ', 2*(a+b ):0:3); 1 Writeln ( ' Dien tich la ', a*b:0:2); Writeln ( ' Duong cheo la ', d:0:3); Writeln ( ' Chu vi duong tron la ', Pi*d : 0 :4); Readln End. Cn5.pas Program HinhChuNhat ; Uses Crt ; Var a , b , d : Real ; Procedure Tinh ; Begin d := SQRT ( a*a + b * b) ; Writeln ( ' Chu vi la ', 2*(a+b ) : 0 : 3); Writeln ( ' Dien tich la ', a*b:0:2); Writeln ( ' Duong cheo la ', d:0:3); Writeln ( ' Chu vi duong tron la ', Pi*d :0:4); End; Procedure Nhap; Begin ClrScr ; Writeln (' Nhap vao 2 canh '); Repeat Readln (a , b); If (a<=0) OR (b<=0) Then Writeln('Du lieu khong hop le,moi vao lai'); Until (a > 0) And (b >0); End; BEGIN Nhap ; Tinh ; Readln; END. VD2. Tính chu vi, diện tích, đường chéo, chu vi đường tròn ngoại tiếp hình chữ nhật theo độ dài hai kích thước của nó. - Hình thứ nhất có hai kích thước là a1 và b1. - Hình thứ hai có hai kích thước là a2 và b2. - Hình thứ ba có hai kích thước là a1+a2 và b1+b2. Program HinhChuNhat ; Uses Crt ; Var a1 , b1 , a2 , b2 , d : Real ; Function HopLe(a , b : real) : Boolean; Begin HopLe := (a > 0) And (b >0); End ; Procedure Nhap(var a , b :real ; T : Byte); Begin Writeln (' Nhap vao 2 canh hinh thu ' , t); Repeat Readln ( a , b ); If Not HopLe( a , b) Then Writeln('Du lieu khong hop le, vao lai'); Until HopLe( a , b); End ; Procedure Tinh( K : Byte ; a , b : real ); Begin writeln(' Hinh thu ' , K ,' '); 2 d := SQRT ( a*a + b * b) ; Writeln ( ' Chu vi la ', 2*(a+b ) : 0 : 3); Writeln ( ' Dien tich la ', a*b:0:2 ); Writeln ( ' Duong cheo la ', d:0 : 3 ); Writeln ( ' Chu vi duong tron la ', Pi*d : 0 :4 ); End; BEGIN ClrScr ; Nhap( a1 , b1 , 1) ; Nhap( a2 , b2 , 2) ; Tinh(1, a1 , b1); Tinh(2, a2 , b2); Tinh(3, a1+a2 , b1 + b2); Readln END. VD3: (M¶ng 1 chiÒu) 1, Viết CT nhập vào mảng A, mảng B là những mảng một chiều gồm n phần tử là những số nguyên lớn hơn 5 và nhỏ hơn 500 (n > 10). 2, Gọi P(k) là tổng các chữ số cảu k. (VD: P(248) = 2+4+8=14). Xây dựng mảng C gồm có n phần tử sao cho C[i] = P(A[i])+P(B[i]) 3, In lên màn hình các phần tử nguyên tố cùng nhau với phần tử đầu tiên của mỗi mảng (in riêng cho từng mảng) Program mang1Chieu ; Uses Crt ; Const N = 11 ; Type MG = Array [ 1 N ] Of Word ; Var A , B , C : MG ; k : bYTE ; PROCEDURE Nhap ( Var X : MG ; T : Char ) ; Begin Writeln(' Nhap tung phan tu cua mang ', T ); For K := 1 TO N DO Repeat Write( T , '[' , k , ']='); Readln ( X[k]); IF (X[k]<6) OR (X[k]>= 500) THEN Writeln(' Vao lai'); Until ( X[k] > 5 )AND ( X[k] < 500); End ; Function P (K : Word ) : Byte ; Var T : Byte ; Begin T := 0 ; While K > 0 DO Begin T := T + K MOD 10 ; K := K DIV 10 End ; P := T End ; Function NTCN ( M , N : Word ) : BOOLEAN ; Begin While M <> N DO IF M > N Then M := M - N Else N := N - M ; NTCN := M = 1 ; End ; Procedure MgC ; Begin For K := 1 TO N DO C[k] := P (A[k]) + P(B[k]) End ; PROCEDURE INKQ (X : MG ; T : Char ); Begin 3 Writeln(' Day la mang ', T , ' '); For K := 1 TO N DO Write (X[k] : 7); Writeln; Writeln(X[1],'Nguyen to cung nhau voi cac so sau day'); For K := 2 TO N DO If NTCN ( X[1] , X[k] ) Then Write(X[k] : 7); Writeln ; End ; BEGIN CLRSCR ; Nhap (A , 'A'); Nhap (B , 'B'); MgC ; INKQ ( A , 'A') ; INKQ ( B , 'B') ;INKQ ( C , 'C') ; Readln END. VD4: Mang 2 chieu - Viết CT nhập vào mảng A, mảng B là mảng 2 chiều có m dòng, n cột (n>m), các phần tử là những số nguyên >5 và <500. - Gọi P(k) là các ước của k, xây dựng mảng C có m dòng, n cột sao cho C[i,j] = P(A[i,j]) + P(B[i,j]) (1<=i<=m; 1<=j<=n). - In lên các phần tử là các số nguyên tố của mảng. Program mang1Chieu ; Uses Crt ; Const N = 4 ; M = 3 ; Type MG = Array [ 1 M , 1 N ] Of Word ; Var A , B , C : MG ; J , k : bYTE ; PROCEDURE Nhap ( Var X : MG ; T : Char ) ; Begin Writeln(' Nhap tung phan tu cua mang ', T ); For J := 1 TO M DO For K := 1 TO N DO Repeat Write(T,'[',J,',',k,']='); Readln(X[J,k]); IF (X[J,k] < 6) OR (X[J,k]>=500) THEN Writeln (' Vao lai') Until ( X[J ,k] > 5 )AND ( X[J ,k] < 500) End ; Function P ( K : Word ) : Word ; Var T, U : Word ; Begin T := 1 + K ; For U :=2 TO K DIV 2 DO IF K MOD U = 0 Then T := T + U; P := T End ; Function NT ( N : Word ) : BOOLEAN ; Var U : Word ; Begin NT := False ; For U := 2 TO TRUNC(SQRT(N)) DO IF N MOD U = 0 Then Exit; {exit: lệnh ra khỏi chương trình con} NT := TRUE ; End ; Procedure MgC ; Begin For J := 1 TO M DO For K := 1 TO N DO C[J ,k]:= P(A[J,k]) + P(B[J,k]); End ; 4 PROCEDURE INKQ(X : MG ; T : Char); Begin Writeln(' Day la mang ', T , ' '); For J := 1 TO M DO Begin For K := 1 TO N DO Write ( X[J ,k] : 7 ); Writeln ; End ; Writeln(' Cac so sau day la so nguyen to '); For J := 1 TO M DO For K:=1 TO N DO If NT(X[j,k]) Then Write (X[J,k]:7); Writeln ; End ; BEGIN CLRSCR ; Nhap (A , 'A'); Nhap (B , 'B'); MgC ; INKQ ( A , 'A') ; INKQ ( B , 'B') ;INKQ ( C , 'C') ; Readln END. Bài thực hành 1: 1. Viết chuong trình nhập vào mảng A, mảng B đều là mảng 1 chiều có n phần tử là những số nguyên đợc nhập từ bàn phím. (n>10). 2. In lên màn hình giá trị nhỏ nhất của mỗi mảng, mỗi mảng có bao nhiêu phần tử nhỏ nhất? Ch ơng trình: Program Timphantunhonhat; const n = 11 ; type MG = Array [1 n] of Integer ; var A, B : MG ; k: Byte; Procedure Nhap (Var x: MG ; T: Char ); Begin Writeln ('Nhap tung phan tu cua mang: ', t); For k:= 1 to n do Begin Write(t,'[',k,']= '); Readln(X[k]); end; End; Procedure Timmin(X: MG; t: char); Var Min: Integer ; D: Byte; Begin Min:= X[1]; D:=0; For K := 2 to n do If Min > X[k] then Min := X[k]; For k:= 1 to n do If X[k] = Min then D:= D + 1; Writeln('Phan tu nho nhat cua mang ',t,' la:',Min); Writeln('So phan tu nho nhat la ',d); End; Procedure INKQ (X: MG; T: char); Begin Writeln (' Day la mang ', t, ' '); For k:= 1 to n do Write(X[k]: 7); Writeln; End; 5 BEGIN Nhap (A, 'A'); Nhap(B,'B'); INKQ(A,'A');Timmin(A, 'A') ; INKQ(B,'B'); Timmin(B,'B'); Readln END. Bài th c hành 2 Có n thanh nhôm chiều dài từ l 1 đến l n đợc nhập vào từ bàn phím. (0< n < 100). Tìm ra phơng án tối u cắt các thanh ra chiều dài a1 và a2 để sử dụng sao cho các mẩu gõ thừa (d) bị cắt ra là nhỏ nhất. Ch ơng trình: Program Thitingioi_HD; Const a1 = 3.5 ; a2 = 4.7 ; Var A: Array [1 100, 1 4] of Real; N , K, p, q : Byte ; Min, d : Real; Begin Writeln('Cho biet so thanh nhom: '); Readln (N); For K:= 1 to n do Begin Write('Nhap do dai cua thanh thu ',k,' '); Readln(A[k,1]); Min:= A[k,1]; A[k,2]:= 0 ; A[k,3]:= 0; A[k,4]:= Min; For p:= 0 to Trunc(A[k,1]/a1) Do For q:= 0 to Trunc(A[k,1]/a2) Do Begin d:= A[k,1] - (p*a1 + q*a2); If d <0 then Break Else If Min > d Then Begin Min := d; A[k,2]:= p ; A[k,3]:= q; A[k,4]:= Min; End; End; End; For K:= 1 to n do Begin Writeln(' '); Writeln('Do dai thanh thu ',k,' la: ',A[k,1]:0:3,' met' ); Writeln('So thanh 3.5m la ', A[k,2]:0:0); Writeln('So thanh 4.7m la ', A[k,3]:0:0); Writeln('do dai thua la ', A[k,4]:0:3); End; Readln End. 6 Bài thực hành 3: 1. Viết chương trình giải phương trình bậc nhất. Program Giaiphuongtrinhbac1 ; Var a, b, c, k: integer ; X: string; Ds, Ng: Real; Begin Randomize; K := 0; Writeln(' '); Repeat k:=K+1; a:=-3 + Random(10); If a= 0 then a:=2; b:= -20 + Random(60); If b < 0 then Writeln ('Lan thu ',K, a:5, 'X ' ,b,' = 0') else Writeln ('Lan thu ',K, a:5, 'X + ' ,b,' = 0'); Str (-b/a:0:2, X); Val (X,Ng,c); Writeln('Nhap dap so '); Readln(Ds); If Ds = Ng then Writeln(' Dung') else Writeln('Sai roi, dap so la ',X); Write('Tiep tuc C/K '); Readln(X); Until (X= 'k') or ( X = 'K'); End. 2. Viết chương trình lưu kết quả mà HS đã giải PT bậc nhất lên ổ đĩa E, với tên tệp là tên của HS đó. Program Giaiphuongtrinhbac1 ; Var a, b, c, k: integer ; X: string; Ds, Ng: Real; keo: Text; Begin Writeln('Hay cho biet ten cua em '); readln(x); x:= 'E:\'+ x; Assign(keo,X); Rewrite(keo); Randomize; K := 0; Writeln(' '); Repeat k:=K+1; a:=-3 + Random(10); If a= 0 then a:=2; b:= -20 + Random(60); If b < 0 then Writeln ('Lan thu ',K, a:5, 'X ' ,b,' = 0') else Writeln ('Lan thu ',K, a:5, 'X + ' ,b,' = 0'); If b < 0 then Write (keo,'Lan thu ',K, a:5, 'X ' ,b,' = 0') else Write (keo,'Lan thu ',K, a:5, 'X + ' ,b,' = 0'); Str (-b/a:0:2, X); Val (X,Ng,c); Writeln('Nhap dap so '); Readln(Ds); If Ds = Ng then Writeln(' Dung') else Writeln('Sai roi, dap so la ',X); If Ds = Ng then Writeln(keo,' Dung') else Writeln(keo,'Sai'); Write('Tiep tuc C/K '); Readln(X); Until (X= 'k') or ( X = 'K'); Close (Keo) End. 3. Viết chương trình đọc file vừa lưu lên đĩa ở phần 2. Program DocGRTbac1 ; Var a, b, c, k: integer ; X: string; Ds, Ng: Real; 7 keo: Text; Begin Writeln('Hay cho biet ten tep can xem ');Readln(x); x:= 'E:\'+ x; Assign(keo,X); Reset(keo); While not EOF (keo) do Begin Readln(keo,x); writeln(X); End; Close(keo); Readln; End. (*BT2_103:Viet chuong trinh cho may lam nhung viec sau: a) Nhan vao mang A[1 n](n>9), cac phan tu la so thuc lon hon -2 va nho hon 2. b) Tinh trung binh cong cua cac phan tu duong cua mang. c) So sanh so phan tu duong voi so phan tu am cua mang. d) Tim phan tu nho nhat va lon nhat cua mang. Chi ra vi tri va gia tri cua chung.* e) Tinh a[1]+a[2] 2 +a[3] 3 + +a[n] n (chua lam duoc) program BT2; uses crt; const n = 3; type MG= array[1 n] of real; var a:MG; i: integer; X: String; procedure nhap; { CT phan a } begin writeln(' '); writeln(' Nhap tung phan tu cua mang: '); for i := 1 to n do repeat write('A[',i,']='); readln(a[i]); if (a[i]>=2) or (a[i]<= -2) then writeln('phan tu cua mang phai nho hon 2 va lon hon -2'); until (a[i]>(-2)) and (a[i] < 2); writeln('mang vua nhap la: '); for i:= 1 to n do begin write(a[i]:7:1); end; writeln; end; function TB:real; { ham phan b } var k: word;S:real; begin S:= 0; k:=0; for i:=1 to n do if a[i]>0 then begin S:=S + a[i]; k:=k+1; end; TB:= s/k; end; 8 procedure sosanh; var j,k: byte; begin j:=0; k:=0; for i:=1 to n do if a[i]>0 then j:=j+1 else if a[i]<0 then k:=k+1; if j>k then writeln('So phan tu duong lon hon so phan tu am') else if j=k then writeln(' So phan tu duong bang so phan tu am') else writeln('So phan tu duong nho hon so phan tu am'); end; BEGIN clrscr; repeat nhap; writeln('TB cong cac phan tu duong cua mang la: ', TB:0:2); sosanh; readln; write('Tiep tuc c/k ?'); readln(x); until (x='k') or (x='K'); END. BT4_T103: Có n ngời xếp hàng một để mua hàng. Thời gian ngời bán hàng phục vụ khách hàng thứ i là t i . Viết chơng trình nhận vào các t i và tính thời gian c i mà khách hàng thứ i phải chờ để bắt đầu đến lợt mình. Program BT4_103; uses crt; Const n = 10; Var t: array [1 n] of integer; Procedure nhap; Var i,m: byte; Begin Write(Nhap vao so nguoi mua hang: ); Readln(m); For i:=1 to m do Begin Write(thoi gian (tinh theo phut) nguoi ban hang phuc vu khach hang thu ,i, la: ); Readln(t[i]); End; End; Procedure tinhc; Var k,i: byte; c: integer; tl: string; Begin C:=0; repeat Write(Nhap vao vi tri cua khach can tinh thoi gian phai cho den luot: ); Readln(k); For i:=1 to k-1 do C:= c + t[i]; Writeln(vi khach thu ,k, phai cho mot khoang thoi gian la: ,c ,' phut ' ); C:= 0; Writeln(tiep tuc c/k? ); readln(tl); Until (tl=k) or (tl=K); End; 9 BEGIN Clrscr; Nhap; Tinhc; Readln; END. BT3 _T103: Cho n số thực (n>7) a 1 , a 2 , , a n . Hãy tính: = = n i i a n a 1 1 ; 1 )( 1 2 = = n aa S n i i Program BT3_103 Const n=8; Type: MG=array [1 n] of real; Var a: MG; i,n : integer; p,q,a,s: real; BEGIN Writeln(Nhap vao cac so thuc); For i:=1 to n do Begin Write(a[,i,] =); readln(a[i]); End; P:=0; Q:=0; For i:=1 to n do Begin P:=P + a[i]; A:=p/n; { Xem lai cong thuc} Q:= Q + sqr(a[i] A); S:= sqrt(Q/(n-1)); End; Writeln(a = ,A:0:2); writeln(S = ,S:0:2); Readln; END. BT5_T103: cho A[1 n] (n>7), các phần tử là số tự nhiên với a[i] = i 2 + 2. a) Tính tổng các căn bậc hai của các phần tử chia cho 7 d 3. b) Tìm các phần tử là số nguyên tố của mảng. Chỉ ra vị trí và giá trị của chúng. c) xây dựng mảng B có các phần tử là các số nguyên tố của mảng A. Program BT5_103; uses crt; Const n=8; Type MG=array[1 n] of word; Var A : MG; i: byte; Procedure tinh; Var c : real; Begin C:=0; For i := 1 to n do If a[i] mod 7 = 3 then C:= C+ sqrt(a[i]); Writeln('tong = ',c:0:2); 10 [...]... Writeln( mang ,T, co cac so nguyen to la: ); For i:= 1 to n do if SNT(X[i]) = 1 then write(X[i] : 7); End; BEGIN END - Cách 2 (đã chạy) -{Bai 10 Viet chuong trinh cho may tin lam viec nhu sau a) Nhan vao hai day so co n phan tu la cac so nguyen > 2, 9) a1, a2, a3, , an (day A) b1, b2, b3, , bn (day B) b) Goi P(k) la tich cua tong cac chu so cua k va so chu so cua k (VD: P(235)=... Writeln('A[',i,']','=',A[i]:0:1); { b -} Writeln; Write('Nhap so thuc = ') ; readln(R); i:=1; Repeat IF a[i] = R then begin Writeln(R:0:1,' thuoc day so da cho'); Break; end; i:=i+1; Until i = m; If a[i]R then Writeln(R:0:1 ,'khong thuoc day da cho'); Writeln; Write ('Nhap so can tim = ') ; readln(R); d:=0; For i:= 1 to m do If a[i]=R then d:=d + 1; Write( 'So cac so bang so can tim la: ', d); writeln ; For i:=1 to... a[i] = tg then d:= d+1 else begin Writeln( 'so' ,tg:0:1,' xuat hien la :',d,' lan'); tg:=a[i]; d:=1; end; Writeln( 'so' ,tg:0:1,' xuat hien la :',d,' lan'); Readln End -Bai10 _202 {Viet chuong trinh cho may a) Nhan vao motj xau X co khong it hon 9 ky tu so (Yeu cau kiem tra du lieu nhan vao) b) Chuyen tat ca cac chu so le ve dau xau (khong lam thay doi thu tu... ) ; Readln End BT: Viet chuong trinh tao ngau nhien mang n phan tu, tinh so phan tu am, so phan tu duong cua mang Tinh tong cac phan tu chia het cho so nguyen k program sum1; uses crt; const nmax=100; type myarray=array[1 nmax]of integer; 31 var A: Myarray; s,n,i,k: integer; posi,neg: integer; BEGIN clrscr; randomize; writeln; write(' nhap n='); readln(n); {tao ngau nhien mang gom n so nguyen} for... {Bai 12 Viet chuong trinh cho may tinh lam nhung viec sau: a) Nhan vao mang A va B la mang 2 chieu gom n dong n cot, cacs phan tu la nhung so nguyen lon hon 3, nho hon 300 (n>5) chi so dong vaf chi so cot bat dau tu 1 b) Goij P(k) la tich cua tong cacs chu so cua K va cac uoc cua K (VD P(25)= (2+5)*(1+5+25)= 217 Xay dung va in len mang C co n dong n cot duoc tao thanh tu hai mang tren sao cho C[i,j]... sapxep(C,'C'); Readln; END - 27 BT: đó Viết chơng trình nhập vào một dãy gồm n số nguyên, xác định số lợng số chẵn, lẻ trong dãy program bt; uses crt; const n = 4; type arrint= array[1 n] of integer; var i, j,k : integer; a:arrint; BEGIN write('nhap cac phan tu cua day so: '); for i:=1 to n do begin write('a[',1,']='); readln(a[i]); end; writeln('Day so vua nhap: '); for i:=1 to n do write(a[i]:5);... readln(a[i]); end; writeln('Day so vua nhap: '); for i:=1 to n do write(a[i]:5); writeln; j:=0; for i:=1 to n do begin if a[i] mod 2=0 then j:= j+1; k:= n-j; end; writeln(' so luong so chan trong day la: ' ,j); writeln(' so luong so le trong day la: ',k); readln end -Bài thực hành 4 1 Viết chơng trình GPT bậc nhất (PT sinh ngẫu nhiên), HS thực hiện giải PT rồi ghi lên đĩa E với tên... Byte; Begin Writeln('Cac so la boi so chung cua tat ca cac so truoc no :'); For i:= 2 to n do 14 Begin For j:=1 to i-1 do If X[i] mod x[j] 0 then begin break; end; IF X[i] mod x[j] = 0 then Write(x[i]:7); End; Writeln; end; Procedure InKQ(X : MG; T : Char); Begin Writeln(' Day la mang ',T,' -'); For k:=1 to N do begin Write(X[k]:7); end; writeln; Writeln('cac phan tu la so nguyen to gom: ');... writeln(vao lai); Until (x[i] > 2) and (x[i] < 2000); End; Function P (K: integer): word; Var tong, sochu: integer; Begin tong :=0; sochu := 0 While K > 0 do Begin sochu := sochu + 1; Tong := tong + k mod 10; K := K div 10; End; P := tong * sochu; End; Procedure MgC; Begin For i := 1 to n do c[i] := P(a[i]) + P(b[i]); End; Function SNT (M: integer): boolean; Var j: byte; Begin SNT := 0; For j := 1 to... to n do begin If P(length(S[k])) then Writeln('B[',k,']=',S[k]); End; Program BT6 _207; uses crt; var n,m,i: integer; KT : boolean; Ng,T, C, DV, Tong : byte; Begin Write('Nhap m= '); read(m); write(' n = '); readln(n); Writeln( 'So tu nhien be hon ',n,' ma co tong cac binh phuong cac chu so cua no bang ',m,' la: '); For i :=1 to n-1 do Begin Ng:=i div 1000; T:=(i mod 1000) div 100; . integer): word; Var tong, sochu: integer; Begin tong :=0; sochu := 0 While K > 0 do Begin sochu := sochu + 1; Tong := tong + k mod 10; K := K div 10; End; P := tong * sochu; End; Procedure MgC; Begin For. phan tu am') else if j=k then writeln(' So phan tu duong bang so phan tu am') else writeln(&apos ;So phan tu duong nho hon so phan tu am'); end; BEGIN clrscr; repeat . so co n phan tu la cac so nguyen > 2, <2000 (n>9) a1, a2, a3, , an (day A) b1, b2, b3, , bn (day B) b) Goi P(k) la tich cua tong cac chu so cua k va so chu so cua k (VD: P(235)= 10