profile
Опубликовано 5 лет назад по предмету Информатика от Maximillionix

12.24 Паскаль, пожалуйста)

  1. Ответ
    Ответ дан Alexresh62
    var A:array[1..6,1..6]of integer;
    i,m:integer;
    begin
    for i:=1 to 6 do A[1,i]:=1;   
    for i:=1 to 6 do A[i,1]:=1; 
    for i:=2 to 6 do
    for m:=2 to 6 do
    A[i,m]:=A[i-1,m]+A[i,m-1];

    for i:=1 to 6 do begin
    for m:=1 to 6 do
    write(A[i,m],'  ');
    writeln();
    end;
    end.