26.  Заполнить таблицу размерности n*n:

2 2 2 …  2

0 4 4 …  4

0 0 8 …  8

………….

0 0 0 … 2n

Решение

program lab26;

type mas=array[1..10, 1..10] of integer;

var n,i,j:integer;

a:mas;

begin

writeln('Vvedite razmernost matrici: ');

readln(n);

for i:=1 to n do

    for j:=1 to n do

    begin

         if j<i then a[i,j]:=0

         else a[i,j]:=round(exp(i*ln(2)));

    end;

for i:=1 to n do

begin

    for j:=1 to n do

    write(a[i,j],' ');

writeln;

end;

readln;

end.