Với bài này bạn muốn có bao nhiêu hàng cũng được (có test, ở ảnh)
program tam_giac_pascal;
uses crt;
var A:array[0..100,0..100] of integer;
n,i,j:integer;
begin
clrscr;
write('Nhap bac: '); readln(n);
fillchar(A,sizeof(A),0);
A[1,1]:=1;
for i:=2 to n do
for j:=1 to i do
A[i,j]:=A[i-1,j-1]+A[i-1,j];
for i:=1 to n do
begin
for j:=1 to ((n-i) div 2)*4 do
write(' ');
if i mod 2=0 then write(' ');
for j:=1 to i do
write(A[i,j]:4);
writeln;
end;
readln;
end.
Với bài này chỉ có thể in ra hình như trong ảnh của bạn (Có test, ảnh sau)
program tam_giac_pascal;
uses crt;
begin
clrscr;
writeln(' 1 ');
writeln(' 1 1 ');
writeln(' 1 2 1 ');
writeln(' 1 3 3 1 ');
writeln('1 4 6 4 1 ');
readln;
end.
