Помогите, пожалуйста решить данный двумерный массив

Помогите, пожалуйста решить данный двумерный массив

Задать свой вопрос
Алина Золотарьян
В паскале
Maksimka Tjulgin
глупо в лоб я знаю как написать, а вот чтобы красиво...
1 ответ

var

 a: array[1..6, 1..6] of integer;

begin

 for var i := 1 to 6 do

 begin

   for var j := 1 to 6 do

   begin

     if (i = 1) or (j = 1) then a[i, j] := 1

     else a[i, j] := a[i, j - 1] + a[i - 1, j];

     write(a[i, j]:4, ' ')

   end;

   writeln;

 end

end.

Геннадий Пустовойченко
Кратче вот такая байда, это в лоб, а чтоб прекрасно, нужно мыслить, а думать не очень охото =).
Ева Верюханова
Все равно, спасибо
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт