<span>Sub love01()
Dim a(999) As Integer, Count35 As Integer
For i = 0 To 999
a(i) = Int(Rnd * 1000)
</span>Count35 = Count35 - ((a(i) Mod 3 = 0) or(a(i) Mod<span> 5 = 0))</span><span>
Next
MsgBox Count35
End Sub
т.е. 8 элементов)</span>
Ответ:
1) N=128
формула: N=2 в степени i
128=2 в степени i
i=7 так как 2 в 7 степени= 128
ответ :7.
2) N=2^i; 32=2^i => i=5 бит;
5 МБ = 41943040 бит.
41943040 бит/5 бит = 8388608 символов.
3) 1. Если в кодировке ASCII.
8*25*150=30000 символов.
Один символ в кодировке ASCII занимает 1 байт или 8 бит.
30000*1=30000 байт.
2. Если в кодировке UNICODE.
8*25*150=30000 символов.
Один символ в UNICODE занимает 2 байта или 16 бит.
30000*2=60000 байт.
4) 1) 80*100=8000.
2) 8000:16=500.
3) 32000:500=64 => 2 в 64 степени=6.
5) 1) 3*1024*8=24576.
2) 24576:3072=8 => 2 в 8 степени=3.
не благодари
Объяснение:
Ответ:
А1-а7
Объяснение:
Именно в этих ячейках есть текст, а не формула или число
Program task;
var x,i,sum:integer;
begin
readln(x);
sum := 0;
for i := 1 to 4 do
begin
sum := x mod 10 + sum;
x := x div 10;
end;
writeln(sum);
readln;
<span>end. </span>