Var
i,n:integer;
s:real;
begin
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
end.
var a, b, c: real;
begin
read(a, b, c);
writeln('V = ', a * b * c);
writeln('S = ', 2 * (a * b + a * c + b * c));
end.
<span>К элементам форматирования таблиц можно отнести: границы и заливка
</span><span>К атрибутам форматирования символов относятся: гарнитура шрифта, размер шрифта, начертание шрифта (полужирное, курсивное, подчеркнутое), цвет
выделения текста, цвет текста, регистр, интервал между символами в слове и т.д.
</span>
<span>К параметрам форматирования абзацев следует отнести: выравнивание текста (по левому или правому краю, по центру, по ширине), отступы абзацев, отступы первой строки абзацев, межстрочный интервал, заливка цвета фона, маркеры и нумерация списков и т.д.
</span>
Форматирование документа в целом - это форматирование номеров страниц, оформление автособираемого или ручного оглавления и т.д.
Основные параметры форматирования (оформления) страниц: границы рабочего поля (поля сверху, снизу, слева, справа), размеры страницы, ориентация страниц.
А зачем массив импортировать, когда можно подсчитать сумму по ячейкам, через макрос?
Sub Макрос1()
'
' Макрос1 Макрос
'
'
s = 0
MsgBox "Выбраны ячейки: " & ActiveWindow.RangeSelection.Address
For n = 1 To Selection.Rows.Count
s = s + Selection.Cells(n, n)
Next n
MsgBox "сумма диагональных элементов: " & s
<span>End Sub
На самом листе Excel заводим кнопку CommandButton1 и даем название кнопке "Подсчет"
Набираем процедуру CommandButton1_Click
</span>Private Sub CommandButton1_Click()
Макрос1
<span>End Sub
</span>
После выделения диапазона ячеек мышью нажимаем кнопку "Подсчет" и получаем результат.
Решение в прикрепленном файле.
Алг Среднее арифметическое (арг цел a, арг цел b, рез вещ sqrt, рез вещ module)
дано | *честно не знаю как сделать,что даны два числа*
надо | sqrt = (a*a + b*b)/2
module = abs(a*b)/2
нач
| ввод a
| ввод b
| sqrt:=(a*a + b*b)/2
| module:= abs(a*b)/2
| вывод | "Среднее арифметическое квадратов ", sqrt
| вывод | "Среднее арифметическое модулей ", module
кон
