1.Информационный <span>объем цифрового моно звукового файла длительностью 1 сек:
1 байт * 48000 =48000 байт
2. Длительностью 5 мин:
5*60*48000=14400000 байт ≈13.7 Мбайт</span>
Var
a,b,i,c: integer;
Begin
Write('Введите А ');
Readln(a);
Write('Введите B ');
Readln(b);
for i:= 1 to (b-a+1) do Begin
c:=c+a*a;
a:=a+1;
End;
End.
WWW состоит из множества серверов, на которых расположено множество сайтов, соединённых между собой гиперссылками. Можно представить серверы и сайты как узлы, а ссылки – как тонкие паутинки, соединяющие узлы в единое целое.
Var s,gl: string;
<span> i: integer;
</span><span> ps: set of integer;
</span><span>begin
</span><span> gl:='аеёийоуыэюя';
</span><span> write('строка: ');
</span><span> readln(s);
</span><span> ps:=[];
</span><span> i:=2;
</span><span> repeat
</span><span> if pos(s[i],gl)>0 then ps:=ps+[i];
</span><span> i:=i+2;
</span><span> until i>length(s);
</span><span> write('множество четных позиций с гласными: ');
</span><span> foreach i in ps do write(i,' ');
</span><span>end.
</span>
Результат работы:
строка: Это строка для проверки
<span>множество четных позиций с гласными: 20 18 10 8 14
</span>