Var a,b,c:integer;
p,n:string;
begin
readln(p)
;For a:=1 to length(p) do
begin
n:=copy(p,a,1);
If (n=' ') or (n=',') then
begin
If b>c then c:=b;
b:=0
end
else
b:=b+1;
end;
If c=0 then c:=b;
writeln (c);
<span>end.</span>
1)4*4=16, 2^4=16 ответ 4 бита
2)2^3=8; 2^7=128 событий
3)2^3=8 ответ 3 бит
4)2^7=128 ответ 7 бит
5)4/32=1/8; 2^3=8 ответ 3 бит
В восьмиричной
30 (8) = 8*3 = 24 (10)
50 (8) = 8*5 = 40 (10)
100 (8) = 8*8*1 + 8*0 + 0 = 64 (10)
begin
var a := ArrRandom(ReadInteger('n ='), -15, 15);
a.Println;
a.ForEach(x -> begin if x < 0 then Print(x) end)
end.