Rešitev: program Pascalov trikotnik (Pascal)

Iz MaFiRaWiki

Naloga: program Pascalov trikotnik

Program PascalovTrikotnik;
var
  n, i, j: Integer;
  vrsta: Array of Int64;
begin
  Read(n);
  SetLength(vrsta, n);
  for i := 1 to n do
  begin
    vrsta[i-1] := 1;
    for j := i-2 downto 1 do
      Inc(vrsta[j], vrsta[j-1]);
    Write(vrsta[0]);
    for j := 1 to i-1 do
      Write(' ', vrsta[j]);
    WriteLn;
  end;
end.

Preizkušeno s prevajalniki: Free Pascal 2.1.4, Borland Delphi 7.

Osebna orodja