Составьте программу, проверяющую, что введенное число является четным или нечетным на языке vba

Sub test()       dim n as long       n = inputbox("введите целое число")       msgbox iif(n mod 2 = 0, "четное", "нечетное"), vbinformation end sub

3. 640х480 = 307 200 (бит). 100 кбайт = 100х1024х8 = 819 200 (бит) следовательно, на 1 пиксель (бит) придется 819200/307200 = 2.67 бита. но дробным число битов не бывает, поэтому получается, что можно отвести только 2 бита на пиксель. при этом количество возможных цветов будет 2²-1=3. плюс, конечно же, черный цвет, когда пикселя не видно. т.е. палитра будет 4х цветной. 4. как видно из предыдущей , четырехцветная палитра кодируется двумя битами. если количество цветов в палитре увеличить до 256, то потребуется уже восемь бит, т.е. вчетверо больше. следовательно, само изображение будет иметь вчетверо меньший размер, например, 150х100.

Там где символы не понятные это разделители , 3 из 4 program task; const n=15; var a: array[1..n] of integer; i,s,j,first,max: integer; begin óñëîâèå à begin a[i]: =0+random(15); write(a[i]: 4); if(i mod 2=0) then s: =s + a[i]; end; çàäà÷à á begin a[i]: =0+random(15); write(a[i]: 4); end; writeln(); max: =1; for i: =1 to n do if a[i]> a[max] then max: =i; first: =a[1]; a[1]: =a[max]; a[max]: =first; writeln('âåêòîð: '); for i: =1 to n do çà÷à â for i: = 1 to 15 do begin a[i]: = random(20); write(a[i],' '); if a[i] > 0 then end; writeln; writeln; for i: = 1 to 14 do for j: = i+1 to 15 do if a[i] < a[j] then begin max: = a[i]; a[i]: = a[j]; a[j]: = max; end; for i: = 1 to 15 do begin write(a[i],' '); end; end.