Втекстовом редакторе представьте следующую информацию в форме диаграммы. тип диаграммы выберите самостоятельно.саша на земле распределена следующим образом: леса занимают площадь 57 млн км^2, степи - 24 млн км^2, тундры, пустыни и болота - 54 млн км^2 и пашня - 15 млн км^2., кому не сложно, сделайте. у меня нет компьютера. отправьте по почте sokolova2018sasha@gmail.com или киньте файл сюда. ​

32768

Объяснение:

Данная незамысловатая функция Excel VBA формирует строку, согласно условию.

Function replstr(str As String, n As Integer) As String

Dim a(1 To 3), b(1 To 3) As String, i, j As Integer

a(1) = "A": a(2) = "B": a(3) = "AB"

b(1) = "AB": b(2) = "AB": b(3) = "A"

For i = 1 To n

j = (i - 1) Mod 3 + 1

str = Replace(str, a(j), b(j))

Next

replstr = str

End Function

Аргументы функции:

1) Исходная строка (а данном случае “AA”)

2) Число операций с исходной строкой

Значение первых 13 операций:

=replstr("AA";1) ABAB

=replstr("AA";2) AABAAB

=replstr("AA";3)

=replstr("AA";4) ABABABAB

=replstr("AA";5) AABAABAABAAB

=replstr("AA";6)

=replstr("AA";7) ABABABABABABABAB

=replstr("AA";8) AABAABAABAABAABAABAABAAB

=replstr("AA";9)

=replstr("AA";10)

=replstr("AA";11)

=replstr("AA";12)

=replstr("AA";13)

Для подсчета символов “A” в строке, используем еще одну функцию:

Function chrcount(str1 As String, str2 As String) As Integer

Dim str() As String

str = Split(str1, str2)

chrcount = UBound(str, 1)

End Function

Аргументы функции:

1) Cтрока

2) Символ (последовательность символов), число которых требуется найти

Например, результатом использования функции =chrcount(replstr("AA";20);"A") в ячейке Excel будет число 256

Используя описанные функции, посчитаем символы “A”в первых 13 строках

Номер операции (i) Число символов “A” в строке

1    2

2    4

3    4

4    4

5    8

6    8

7    8

8    16

9    16

10    16

11    32

12    32

13    32

Как видно из таблицы, число символов в строке образует числовую последовательность 2^1;  2^2; 2^2; 2^2; 2^3; 2^3; 2^3; … 2^([(i-2)/3]+2)

Таким образом, мы получили формулу для вычисления числа символов “A”в строке по номеру операции.

Соответственно, 2^([(43-2)/3]+2) = 32768

Программа:

program test;

(c) NaaMan}

var b, n, s1, s2 : integer;

   p : Int64;

begin

 {Формируем массив А из 17 элементов от 58 до 98}

 var a := ArrRandomInteger(17, 58, 98);

 {Спрашиваем у пользователя число В}

 write( 'Введите число В: ');

 readln( b);

 {n - счетчик для подсчета элементов, больших В}

 {Обнуляем счетчик}

 n := 0;

 {Просматриваем каждый элемент в массиве а}

 ForEach var x in a do

   {Если он больше, чем В, по увеличиваем счетчик на 1}

   if x > b then n := n + 1;

 {Для вычисления произведения используем переменную Р}

 p := 1;

 {Выберем 5 первых элементов массива, от 0-го до 4-го}

 for var x :=0 to 4 do

   {Перемножаем}

   p := p * a[x];

 {Для вычисления суммы четных эл-в используем переменную S1}

 s1 := 0;

 {Переберем все элементы в массиве}

 foreach var x in a do

   {Если элемент чётный, т.е. делится на 2 без остатка,

   то прибавляем его к S1}

   if x mod 2 = 0 then

     s1 := s1 + x;

 {Для вычисления суммы эл-в, стоящих на нечетных местах,

 используем переменную S2}

 s2 := 0;

 {Просмотрим индексы массива по порядку, 17 штук, от 0 до 16}

 for var x := 0 to 16 do

   {Если индекс нечетный, т.е. делится на 2 с остатком,

   то складываем содержимое массива по этому индексу

   с S2}

   if x mod 2 = 1 then

     s2 := s2 + a[x];

 {А теперь всё это безобразие выводим на экран}

 {Содержимое массива А}

 writeln(a);

 writeln( 'Количество элементов массива, больших чем ',b, ' - ', n, ' штук');

 writeln( 'Произведение первых пяти элементов р = ', p);

 writeln( 'Сумма всех чётных эл-в массива s1 = ', s1);

 writeln( 'Сумма эл-в, стоящих на нечетных местах s2 = ', s2);

end.

Результат выполнения программы: