1 °. Что такое формула? из чего она состоит? 2 ". Каких правил нужно придерживаться при вводе формул? 3". В чем заключаются преимущества использования в формулах адресов ячеек и диапазонов? 4 °. Сообщения об ошибках могут появляться в клетках? О какой ошибке сообщает каждое из них? 6 ". Как вводить в формулу адреса ячеек в использовании мыши? в °. Как предоставить ячейке имя? Какие требования к имени ячейки? 7. Как выделить объект электронной таблицы, используя его имя? 8 °. Что такое модификация формул? Когда и как она происходит?​

program raf105;

var a:array[1..3] of integer;

abc,i:integer;

begin

write('Введите число меньше тысячи: ');

readln(abc);

a[1]:=1000;

a[2]:=1000;

a[3]:=1000;

while abc<>0 do

begin

 i:= i+1;

 a[i]:= abc mod 10;

 abc:= (abc-a[i]) div 10;

end;

if (a[1]<>a[2]) and (a[1]<>a[3]) and (a[1]<>1000)

 then abc:= abc+1;

if (a[2]<>a[1]) and (a[2]<>a[3]) and (a[2]<>1000)

 then abc:= abc+1;

if (a[3]<>a[1]) and (a[3]<>a[2]) and (a[3]<>1000)

 then abc:= abc+1;

if abc=3 then abc:= abc-1;

writeln('Количество разных цифр: ',abc+1);

end.

Программа написана на языке PascalABC.NET

var

A : array [1..999, 1..999] of Integer;

p, s, i, j, m, n: Integer;

begin

// Инициализация переменных для суммы и произведения

s:= 0;

p:= 1;

Write('Введите количество строк - ');

ReadLn(m);

Write('Введите количество столбцов - ');

ReadLn(n);

// Заполнение

for i:=1 to m do

for j:=1 to n do

A[i,j]:=Random(6)+5;

// Вывод массива

for i:=1 to m do

begin

for j:=1 to n do

Write(A[i,j]:3);

WriteLn();

end;

// Подсчёт произведения и суммы

for i:= 1 to m do

begin

j:= i;

s+= A[m-i+1,j];

p*= A[i,j];

end;

WriteLn('Произведение = ', p);

WriteLn('Сумма = ', s);

end.