1-корпус
2-блок питания
3 - процессор с кулером
4 вентилятор
5 ОЗУ
6 видеокарта
7 сетевая карта
8 звуковая карта
9 дисковод СD - DVD
10 дисковод для дискет
11 винчестер
12 материнская плата
Var
s : String;
i : Integer;
begin
Writeln('Введите строку:');
Readln(s);
<span> i:= 0;
</span><span>
while pos(')', s) <> 0 do
</span> begin
<span> i := i + pos(')', s) - pos('(', s) + 1;
</span><span> delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);
</span> end;
<span>
Writeln(s);
</span> Writeln(i);<span>
Readln;
</span><span>end.
2)
var
s : String;
</span> <span>i, e : Integer;
</span> <span>flag : Boolean;
begin
Writeln('Введите строку:');
Readln(s);
<span>
</span></span> <span>e := 0;
</span> <span>flag := False;
for i := 1 to Length(s) do
</span> <span>begin
</span> <span>if (s[i] = UpCase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then flag := True;
</span> <span>if flag then Write(s[i]);
</span> <span>if (( s[i] = ' ' ) or ( i = Length(s))) and flag then
</span> <span>begin
</span> <span>flag := False;
</span> <span>inc(e);
</span> <span> Writeln;
</span> <span>end;<span>
</span></span> <span>end;
<span> Writeln(e);
</span><span> Readln;
</span>end.</span>
32 можно закодировать с помощью 4 бит
600*400*32*2 =15360000 бит = 1920000 байт = 1875 Кбайт = 1.8310546875 Мбайт
Var x,y: real;
begin
read(x);
y:=(2*x)/(4-x);
writeln('y=',y);
end.
Вторая задача
var k,i,p:integer;
begin
p:=1;
read(k);
for i:=1 to k do
if i mod 2=1 then p:=p*i;
writeln( 'p=',p);
end.
Если я всё ещё могу в логику, то 8-битное число есть 8-битное представление числа. Таким образом, двоичный код (любой длины) может нести только одну единицу информации. Но я полагаю, что требудется не это. Если требуется определить максимальный объём данных, который может быть представлен 8-биным числом, то это 2^8=256. Если же количество единичных бит, то 5. Если же имеется в виду предоставляемый объём данных, то это 8 бит.Вопрос очень некорректный.
