Описать значение каждой строки в программном коде VBA. Нарисовать блок-схему к программе. Dim a(5)
Dim i As Integer
Private Sub Command1 Click()
k=0
For i = 1 To 5
a(i) = InputBox("Введите элементы массива" + a(i))
List1 Additem "a(" + Str(i) + ") " + Str(a(i))
Next i
For i = 1 To 5
If a(i) Mod 3 = 0 Then k = k + 1
Next i
List3. AddItem "k=" + Str(k)
End Sub

блачный программный продукт, который позволяет вести неограниченное количество проектов. Например таких масштабных как строительство стадиона, проведение саммита и т.д.

С программным продуктом работают руководители всех уровней, они ставят задачи в рамках проектов и отчитываются об исполнении задач. К успешному исполнению задач и успешной реализации проекта привязаны ключевые показатели эффективности всех участников. Информационная система позволяет руководителю смотреть на проект «с высоты птичьего полета»; любой исполнитель понимает, что от результата его труда зависит общий результат всего проекта.

Программный продукт удобен для работы на мобильных устройствах из любого места и времени.

Суть бренда:

Информационная система предназначена для оперативного и эффективного управления проектами.

Главное отличие от конкурентов:

- Интуитивно понятный интерфейс;

- Проста в освоении;

- Наличие электронного документооборота;

- Одинаково удобна и функциональна как для топ-менеджеров, так и для исполнителей;

- Отечественная разработка, учитывающая особенности управления проектами в России;

- Аналитика исполнения бюджетов, прогноз рисков.

Объяснение:

procedure p(x:integer; var st:string);

type

       name = array[0..9] of String[50];

     const

       s1 : name = (' ноль ',' один ',' два ',' три ',' четыре ',' пять ',' шесть ',' семь ',' восемь ',' девять ');

       s2: name = (' ',' десять ',' двадцать ',' тридцать ',' сорок ',' пятьдесят ',' шестьдесят ',' семьдесят ',' восемьдесят ',' девяносто ');

       s3: name = (' ',' сто ',' двести ',' триста ',' четыреста ',' пятьсот ',' шестьсот ',' семьсот ',' восемьсот ',' девятьсот ');

       s4 : name = (' ',' одиннадцать ',' двенадцать ',' тринадцать ',' четырнадцать ',' пятнадцать ',' шестнадцать ',' семнадцать ',' восемнадцать ',' девятнадцать ');

     var

       s,d,e : Integer;

begin

   s:= x div 100; x:=x mod 100;

   st:=s3[s];

   d:= x div 10; e:=x mod 10;

   if (d=1) and (e<>0) then st:=st+s4[e]

                        else st:=st+s2[d]+s1[e];

end;

var x:integer; st:string;

Begin

    Write('Введите число [0..100] :');

    Readln(x);

    p(x,st);

    writeln(st);

End.

Пример:

Введите число [0..100] : 12

дведнацать

Объяснение: