program P1;usescrt;varmas : array[1..20] of integer;i,j,k : integer;tmp : string;begin
clrscr;
writeln('Start array: ');
for i := 1 to 20 do begin
mas[i] := random(100);
write(mas[i],' ');
end;
if mas[i] mod 2 = 0 then mas[i] := 0;
if mas[i] = 0 then begin
for j := 20 downto i do if mas[j] <> 0 then begin
k := mas[j]; mas[j] := mas[i]; mas[i] := k;
writeln(''); writeln('Result array: ');
for i := 1 to 20 do write(mas[i],' ');
readln(tmp); read(tmp);
end.
Воспульзуемся 2-мя формулами.
1. найдем объем информации одного знака в первом письме N=2 в степени i знак.(где N=16)
отсюда объем одного знака в письме равен 4 бит.
2. найдем объем информации одного знака во втором письме по той же формуле
получаем (где N=256)
8 бит объем одного знака во втором письме.
3. по формуле i сообщения=Количество знаков в письме * i знак.
можно найти обеъем каждого из писем, но на нужно сравнить объемы, а так как колличество знаков в письме одинкаово мы сравниваем только i знак
ответ: объем второго письма в 2 раза больше объема превого
program P1;
uses
crt;
var
mas : array[1..20] of integer;
i,j,k : integer;
tmp : string;
begin
clrscr;
writeln('Start array: ');
for i := 1 to 20 do
begin
mas[i] := random(100);
write(mas[i],' ');
end;
for i := 1 to 20 do
begin
if mas[i] mod 2 = 0 then
mas[i] := 0;
end;
for i := 1 to 20 do
begin
if mas[i] = 0 then
begin
for j := 20 downto i do
if mas[j] <> 0 then
begin
k := mas[j];
mas[j] := mas[i];
mas[i] := k;
end;
end;
end;
writeln('');
writeln('Result array: ');
for i := 1 to 20 do
write(mas[i],' ');
readln(tmp);
read(tmp);
end.
Воспульзуемся 2-мя формулами.
1. найдем объем информации одного знака в первом письме N=2 в степени i знак.(где N=16)
отсюда объем одного знака в письме равен 4 бит.
2. найдем объем информации одного знака во втором письме по той же формуле
получаем (где N=256)
8 бит объем одного знака во втором письме.
3. по формуле i сообщения=Количество знаков в письме * i знак.
можно найти обеъем каждого из писем, но на нужно сравнить объемы, а так как колличество знаков в письме одинкаово мы сравниваем только i знак
ответ: объем второго письма в 2 раза больше объема превого