После изучения темы «Встроенные функции в Microsoft Excel» Аскару дано задание вычислить значения в ячейках таблицы. Рассмотрите таблицу и
Аскару записать числовые значения в ячейках А2, А3; В2; С1;C2; D2;
D3; В ОЧЕНЬ НУЖНО

Program aaa;
var
  s, b, l, c: real;
begin
  writeln('введите s, b, l');
  readln(s, b, l);
  c := b / 100 * s * 2 * l;
  writeln('стоимость поездки: ', c)
end.

program aaa;
{Написать программу пересчета веса из фунтов (f) в килограммы (kg)
(1 фунт равен 409,5 г).} 
var
  f,kg: real;
begin
  writeln('введите f');
  readln(f);
  kg:=f*409.5/1000;
  writeln(f,' фунтов = ', kg:8:3,' килограмм')
end.

program aaa;
{Написать программу Конвертер величин: 
с клавиатуры вводиться вес информации в байтах (b). 
На выходе получаем перевод величины в: биты (bi) , килобайты (kb),
Мегабайты (mb), гигабайты (gb).
1байт = 8 бит
1Кб (килобайт) = 1024 байт
1Мб (мегабайт) = 1024 Кб
1Гб (гигабайт) = 1024 Мб
1Тб (терабайт) = 1024 Гб} 
var
  b,bi,kb: real; mb,gb,tb: decimal;
begin
  writeln('введите b');
  readln(b);
  bi:=b*8;
  kb:=b/1024;
  mb:=kb/1024;
  gb:=mb/1024;
  tb:=gb/1024;
  writeln(b,' байт = ', bi,' бит');
  writeln(b,' байт = ', kb,' килобайт');
  writeln(b,' байт = ', mb,' мегабайт');
  writeln(b,' байт = ', gb,' гигабайт');
  writeln(b,' байт = ', tb,' терабайт')
end.
//формат вывода (к-во знаков ...) определите сами

8192

Объяснение:

Данная незамысловатая функция 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^([(35-2)/3]+2) = 8192