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

Решение в приложении. файл с рабочей книгой excel-2003. не забудьте разрешить выполнение макросов и проектов vba без цифровой подписи. вы можете внести данные для массива вручную или воспользоваться кнопкой для автозаполнения с датчика случайных чисел. не забудьте предварительно указать количество элементов в массиве. кнопка " 1" выполняет первую и выводит результат в ячейку, расположенную правее этой кнопки. кнопка " 2" аналогично работает для второго . коды, привязанные к кнопкам - это программы-обработчики события "нажатие кнопки".

Ab c nota   nota& b   a=> c (nota& b)or(a=> c) 0 0 0   1         0             1           1 0 0 1   1         0             1           1 0 1 0   1         1             1           1 0 1 1   1         1             1           1 1 0 0   0         0             0           0 1 0 1   0         0             1           1 1 1 0   0         0             0           0 1 1 1   0         0             1           1