Правильный ответ 7. Алгоритм считает сколько исполнителей набрали меньше 25 голосов. Это 1-й,2-й,3-й,5-й,6-й,8-й,9-й всего таких - 7
1.
Const N = 10;
Var i,S:integer; m:array [1..N] of integer;
Begin
randomize; S:=0;
for i:=1 to N do begin
m[i]:= random(201)-100;
writeln(m[i]);
end;
for i:=1 to N do
if m[i] mod 2 = 0 then
S:=S+m[i];
writeln('Summa = ',S);
readln;
end.
2.
Const N = 100;
Var i,p:integer; B:array [1..N] of integer;
Begin
randomize; p:=0;
for i:=1 to N do begin
B[i]:= random(201)-100;
writeln(B[i]);
end;
for i:=1 to N do
if B[i] mod 3 = 0 then
p:=p*B[i];
writeln('Proiz = ',p);
readln;
end.<span>
</span>
1) 8кб / 16384 = 8 * 8 * 1024 / 16384 бит = 4 бит
алфавит содержит не более 2^4 = 16 различных символов
2) Не указано сколько страниц....
53*45*224 = 534240 байт вся книга
534240 байт = 521,72 Кбайт =0.51 Мбайт
0.51 <1.44 => нужна 1 дискета
var
v:array[1..100] of integer;
i,j,n,b:integer;
begin
randomize;
write('vvedite razmernost'' massiva: '); readln(n);
writeln('============ Ishodnii massiv ============='); writeln;
//Заполним массив случайными числами
for i := 1 to n do
begin
v[ i]:=random(100)-50;
write(v[ i]:4);
end;
writeln;
// организуем сортироваку от минимального
// к максимальному элементу массива
for i:=1 to n-1 do
for j:=i+1 to n do
if v[ i]>v[ j] then
begin
b:=v[ i];
v[ i]:=v[ j];
v[ j]:=b;
end;
writeln;
write('=========== Otsortirovannii massiv =======');writeln;writeln;
write('ot min k max: ');writeln;
for i := 1 to n do
write(v[ i]:4); writeln; writeln;
write('ot max k min: '); writeln;
for i := n downto 1 do
write(v[ i]:4);
readln;
end.