Составить программу для вывода в столбик таблицу умножения на 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.

если по обем чашечкам разложить сначала по одной детали так, чтобы они уравновесились .предположим, что деталь весит больше чем три остальные. на чашечки положить еще по одной детали, и одна чашечка перевесит другую.та верхняя деталь, что была на чашечке которую перевесили и есть необходимая. если же деталь весит больше чем все остальные, то все сделать наоборот.

составим таблицу:

                        | молоко  | лимонад | квас | вода

бутылка |       -          |              +          |      -      |      -

стакан    |          -          |            -           |      -      |      +

кувшин  |          +          |            -            |      -     |      -

банка      |          -            |            -           |      +    |        -