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

Question

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

Answer 1

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.