Question

Viết chương trình in ra màn hình tam giác Pascal. Ví dụ, với n = 4 sẽ in ra hình sau:

1
1	1
1	2	1
1	3	3	1
1	4	6	4	1

Answer 1

Program CT4;

Uses Crt;

Var

    a:array[0..9] of byte;

    i,j:byte;

Begin

    Clrscr;

    Writeln;    Writeln;

    Writeln('Tam giac Pascal :');

    Writeln; Writeln;

    For i:=0 to 9 do

        Begin

            For j:=i downto 0 do

            If (j=i)or(j=0) then a[j]:=1 Else a[j]:=a[j]+a[j-1];

            For j:=0 to i do Write(a[j]:5);

            Writeln;

        End;

    Readln;

End.