var i,s,p:integer; a:array [1..100] of integer;
begin
s:=0; p:=0;
writeln('Vvedite masiv a:');
for i:=1 to 10 do begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to 10 do begin
if a[i]>0 then s:=s+a[i];
end;
s:=s*2;
writeln('Udvoennaya suma polozhitelnih elementov=',s);
writeln('Indexi elementov kotorie bolshe prediduschego:');
writeln;
for i:=2 to 10 do begin
if a[i]>a[i-1] then write(i,', ');
end;
for i:=2 to 10 do begin
if ((a[i]>=0) and (a[i-1]>=0)) or ((a[i]<0) and (a[i-1]<0)) then p:=p+1;
end;
writeln;
if p>0 then writeln('Masiv imeet pari sosednih elementov s odnakovimi znakami') else writeln('Masiv ne imeet pari sosednih elementov s odnakovimi znakami');
readln(s);
end.
6144 * 40 = 245760 символов в 40 дорожках
Объяснение:
Один килобайт равен 1024 Байта
Соответственно у вас на дискете 1024*180=184320 Байт (это наш текст)
184320 / 40= 4608 Кбайт это у нас у нас столько байт на дорожке.
4608 / 8 = 576 Кбайт это у нас у нас столько байт в секторе.
1 байт =
бит = 8 бит
576 Кбайт = 576 * 8 бит = 4608 бит в секторе
"64-ти символьный алфавит" .. Код у нас двоичный , значит
= 64
А это значит что каждый символ алфавита занимает 6 бит (два в ШЕСТОЙ степени, значити 6-битный символ).
Мы выяснили что любой символ занимает на дискете 6 (ШЕСТЬ) бит.
4608 / 6 = 768 символов влезет в ОДИН сектор.
768* 8 секторов = 6144 символов в 8 секторах (на одной дорожке)
6144 * 40 = 245760 символов в 40 дорожках
Или где то так, пересчитай.
___________________
2)
а) 1,44 Мбайт = 1,44 * 1024 = 1474,56 Кбайт
Значит 1474,56 Кбайт / 100 Кбайт = 14 файлов
б) 1,2 * 1024 = 1228
1228/100=12 файлов