1)Var a: array [1..10] of integer;
pr,i:integer;
begin
pr:=1;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i] mod 7 = 0 then
pr:=pr*a[i];
end;
writeln(pr);
end.
2)Var a: array [1..17] of integer;
count,i:integer;
begin
randomize;
count:=0;
for i:=1 to 17 do
begin
a[i]:=random(21)-10;
writeln(a[i]);
if a[i]>0 then inc(count);
end;
writeln(count);
end.
3)Var a: array of integer;
count,i,n,c:integer;
begin
readln(n);
count:=0;
Setlength(a,n+1);
c:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i]>5) and (i mod 2 =0) then
begin
inc(count);
c:=c+a[i];
end;
end;
writeln(c/count);
end.
4)Const N=35;
Var a: array [1..N] of integer;
i:integer;
begin
randomize;
for i:=1 to N do
begin
a[i]:=random(21)-5;
write(a[i]:4);
if (a[i] mod 10 = 5) then a[i]:=0
else a[i]:=1;
end;
writeln;
for i:=1 to N do
write(a[i]:4);
end.
Для кодирования одного из 256 символов требуется log(2)256 = 8 бит (2^8=256); для кодирования слова, состоящего из 5 символов, необходимо 5*8 = 40 бит = 40/8 байт = 5 байт.
Ответ:
Зайди в статус, нажми на 3 точки и "Приватность статуса", а там на "Мои контакты"
Ответ:
Вирус - класс компьютерных программ, способных самостоятельно распространятся путём внедрения своего кода с исходный код файла. Наиболее подвержены заражению .exe файлы, иногда встречаются вирусные BAT - файлы
Объяснение:
<span>42015 + 22015 – 15
Сначала решаешь в 10-ой системе счисления:</span>
<span>42015 + 22015 – 15 = 64015
Затем переводишь найденное число из 10-ой в 2-ую:</span>
64015(в 10-ой) = <span>1111101000001111 (в 2-ой)
В данном числе 10 единиц.
Остальные примеры решаются точно также
</span>