Решение задачи

Мандарин (8 Декабря 2011 / 14:46)
Я тебе сам дам 30 рублей если ты ее решишь.

Давай перечисляй 30 руб. Я сделал

Два дня решал)) неустойка покрыла 30руб. помог кто?

Две очень халявных задачи,которые пишутся за 5 минут.)))
Если будут ещë такие задачи по 30 р.-напишу.

Apollon76 (10 Декабря 2011 / 12:15)
Две очень халявных задачи,которые пишутся за 5 минут.)))
Если будут ещë такие задачи по 30 р.-напишу.

Если ты такой умный покажи решение 2 задачи

Добавлено через 00:32 сек.

Мандарин (10 Декабря 2011 / 11:47)
Два дня решал)) неустойка покрыла 30руб. помог кто?

Да помогли

var i,j:integer;
a:array[0..6,0..6]of integer;
begin
a[1,0]:=1;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[j,i]:=a[j-1,i]+a[j,i-1];
end;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do
write(a[j,i],' ');
writeln;
end;
end.

Пожалуйста.Писал минуту.

16. Apollon76, интересно узнать и по какому же правилу сочтавлен массив в задаче 2?

Верхнее плюс левое.)Это перевёрнутый треугольник Паскаля.