Требуется нужно перевести программу из pascal в vba/ program num2; uses crt; var a : array [1..100] of integer; i, k, n, s : integer; begin clrscr; s: =0; write('k='); readln(k); write('n='); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do if (a[i] mod k)=0 then s: =s+a[i]; writeln('s=', s); end. program num1; uses crt; var i, e : integer; begin clrscr; i: =0; write('e='); readln(e); while i begin i: =i+sqrt(2); end; writeln('i=', i); end. program num3; uses crt; var a, t : array [1..100, 1..100] of integer; i, j, x : integer; begin clrscr; for i: =1 to 100 do for j: =1 to 100 do a[i, j]: =random(10); for i: =1 to 100 do for j: =i+1 to 100 do t[i, j]: =a[i, j]; for i: =1 to 100 do for j: =1 to 100 do begin x: =0, 5*((a[i, j]^2)+(a[i, j]^t[i, j])); writeln('x[', i, ', ', j, ']=', x); end; end.

Первые две, так как третяя не понятная, вторая может быть не верно понята

Sub num2()
    s = 0
    Dim A
    k = CInt(InputBox("K ="))
    n = CInt(InputBox("N ="))

    Redim A(n - 1)
    for i = 0 to n - 1
        a(i) = CInt(InputBox("A(" & i & ") ="))
        if a(i) MOD k = 0 then s = s + a(i)
    next
    MsgBox s
End Sub

Sub num1()
    i = 0
    e = CDbl(InputBox("E ="))
    Do while i <= e
        i = i + sqr(2)
    Loop
    MsgBox "i = " & i
End Sub

1)

6-ричный :

0

1

2

3

4

5

8-ричный:

0

1

2

3

4

5

6

13-ричный:

0

1

2

3

4

5

6

7

8

9

A

B

C

2)

В двоичной:

0110111001011101111000100110101011110011011110111110000100011001010011

В четверичной:

0123101112132021222330313233100101102103

В семеричной:

012345610111213141516100101102103104105

В одиннацатеричной:

0123456789A101112131415161718

3)

11100010110304002321010848100107B00AB300F02F1FA

4)

101111010032133220362635666CDD7ABD7C2CFABF2E

5)

1.

Наибольшее число в двоичной тремя цифрами:

111

Перевод в десятичную:

8

2.

Наибольшее число в пятеричной тремя цифрами:

444

Перевод в десятичную:

4*4^2 + 4*4^1 + 4*4^0=84

3.

Наибольшее число в двенадцатеричной тремя цифрами:

BBB либо [12] [12] [12]

Перевод в десятичную:

12*12^2 + 12*12^1 + 12*12^0=1884

6)

1.

1010111 {2}

1*2^6 + 1*2^4 + 1*2^2 + 1*2^1 + 1*2^0=87

2.

255 {8}

2*8^2 + 5*8^1 + 5*8^0=173

3.

C7 {16}

13*16^1 + 7*16^0=215

7)

1.

68

В двоичную:

64+4=2^6 + 2^2=1000100

В восьмеричную:

001 000 100=105

В шестнадцатеричную:

1000 0100=95

2.

465

В двоичную:

256+128+64+16+1=2^8 + 2^7 + 2^6 + 2^4 + 2^0=111010001

В восьмеричную:

111 010 001=731

В шестнадцатеричную:

0001 1101 0001=1D1

3.

294

В двоичную:

256+32+4+2=2^8 + 2^5 + 2^2 +2^1=100100110

В восьмеричную:

100 100 110=446

В шестнадцатеричную:

0001 0010 0110=126

P.s.

Перевод из двоичной в шестнадцатеричную (а также в восьмеричную, если отбросить первый ноль) :

0. 0000 |8

0001 |80010 |80011 |80100 |80101 |80110 |80111 |810001001(A) 1010(B) 1011(C) 1100(D) 1101(E) 1110(F) 1111

Моде́ль (фр. modèle, от лат. modulus — мера, аналог, образец) — отображение, копия, схема, макет, изображение, некоторый материальный или мысленно представляемый объект или явление, замещающий упрощением оригинальный объект или явление, сохраняя только некоторые важные его свойства, например, в процессе познания (созерцания, анализа и синтеза) или конструирования. Другими словами, модель — это объект или явление, аналогичные, то есть, в достаточной степени повторяющие свойства моделируемого объекта или явления (прототипа) , существенные для целей конкретного моделирования, и опускающие несущественные свойства, в которых они могут отличаться от прототипа.