Gennady
Гений
(60293)
15 лет назад
Доброго времени суток.
Вам найти или программку? Для найти в поисковике набираети "треугольник паскаля". Вы удивитесь, сколько ссылок будет. А вот программка
program PasTriangle;
uses Crt;
const N = 11;
var
i, j : Integer;
A : array[1..N, 1..N] of Byte;
begin
{инициализация массива}
for j:= 1 to N do A[j, 1]:= 1;
{заполнение массива}
for i:= 3 to N do
for j:= 2 to i-1 do A[i, j]:= A[i-1, j-1]+A[i-1, j];
{отображение}
ClrScr;
for i:= 1 to N do begin
for j:= 1 to N-i do Write(' ':3);
for j:= 1 to i-1 do Write(a[i, j]:6);
WriteLn;
end;
WriteLn;
WriteLn('Нажмите Enter');
ReadLn;
end.
Удачи!