... ');readln(k); Writeln('C(',n,',',k,') = ',c(n,k):6:0); Readln; End Bài 29: Lập tam giác PASCAL, Cn k(dùng chương trình con) n Program TAM_GIAC _PASCAL; Uses Crt; Var i,j,n,k:integer; Trang 12 Function gt(n:integer):longint; ... While not eof(f) Begin read(f,i); write(i:3); End; Readln; End Bài 60: Mở file số nguyên có đĩa, chép nội dung sang tập tin in nội dung tập tin sau chép hình Program COPY_FILE; Trang 37 Uses Crt; ... Writeln('VIET TAM GIAC PASCAL: '); Writeln(' -'); Write(' Nhap n = '); readln(n); For i:=0 to n Begin For j:=0 to i Write(C(j,i):3:0); Writeln; End; Readln; End Bài 30: Viết chương...