128=, значит вес одного символа 7 бит.
30*7=210 бит.
Ответ: 210 бит.
Var
s,sd:string;
i,n,sum,d,err:integer;
begin
Writeln('Введите строку для суммирования');
Read(s);
sum:=0;
n:=Length(s);
if n>0 then begin
i:=2; sd:=s[1];
while i<=n do begin
if s[i]<>'+' then sd:=sd+s[i]
else begin
Val(sd,d,err);
sum:=sum+d;
sd:=''
end;
Inc(i);
end;
Val(sd,d,err);
sum:=sum+d
end;
Writeln('Сумма равна ',sum)
end.
<u><em>Тестовые примеры:</em></u>
Введите строку для суммирования
1+25+3
Сумма равна 29
Введите строку для суммирования
143+38+253+62
Сумма равна 496
-------------------------------------
колмес - это мелок
Program z1;
var x,y:integer;
begin
writeln('введите координаты');
readln(x,y);
if (x>0) and (y>0) then writeln('1')
else
if (x>0) and (y<0) then writeln('4')
else
if (x<0) and (y>0) then writeln('2')
else writeln('3');
end.
2 4 8 16 32
через 3 , 6 , 9, 12 24 часа соответственно