Составить программу для вывода в столбик таблицу умножения на 9.

var a: array[1..10,1..10]of integer;

i,j: integer;

begin

for i: =2 to 10 do a[i,1]: =i-1;

for i: =2 to 10 do a[1,i]: =i-1;

for i: =2 to 10 do

for j: =2 to 10 do

a[i,j]: =a[i,1]*a[1,j];

for i: =1 to 10 do begin

for j: =1 to 10 do

write(a[i,j]: 3); if j=10 then writeln; end;

end.

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

-32=-100000

прямой код 10100000

обратный код 11011111

дополнительный код 11100000

-102=-1100110

прямой код 11100110

обратный код 10011001

дополнительный код  10011010

-126=-1111110

прямой код 11111110

обратный код 10000001

дополнительный код  10000010