1)
var
i,k:integer;
a:array [1..14] of integer;
begin
k:=0;
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
if a[i] mod 2=0 then k:=i;
end;
if k>0 then
begin
for i:=k to 13 do a[i]:=a[i]+1;
a[14]:=0;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
2)
var
i,k:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
end;
for i:=1 to 7 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
Таблицей:
Маша Полина Валя
Галузина - + -
Юсупова + - -
Сидорова - - +
Объяснение:Маша не Галузина - ставим -, Валя в 8 классе а Галузина в 7 - значит Валя не Галузина, остаётся что Галузина - Полина, мама Вали домохозяйка, а мама Юсуповой работает в банке, значит Валя не Юсупова, значит Валя Сидорова, и остаётся что Маша Юсупова.
Я бегу как паровоз у меня опять понос в туалет несусь я щас обоссусь
ну как-то так
1)1 байт = 8 бит
12288/8 = 1536 байт
2)К=2048, I-1/512 Mб, i-?
решение: I=K*i i=I/K
I=1/512*1024*1024*8=16384 бит
i=I/K=16384/2048=8 бит
если i=8 бит, то мощность алфавита равна N=256 символов (т.к. 2 в 8 степени равно 256)
2 Мбайт = 2*(2^10) Кбайт = 2*(2^10)*(2^10) байт = (2^(21))*8 бит =
= 2^(24) бит.
Скорость передачи информации = 2^(24)/34 (бит/сек).
Искомый размер файла = [(2^(24))/34]*14 бит =
= (14/34)*2^(21) байт = (7/17)*2^11 Кбайт ≈ 843,3 Кбайт.