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)(800*8)/(20*40)=8бит . 2^8=512 цветов
2)Хз . Давно это было . Я бы написал паинт и фотошоп .
3)10*41000*8=3280000 бит = 410000 байт = 400 кбайт (Вообще еще должно быть указанно какой звук - моно , стерео .... )
4)О_о
Смотрели в сторону метода `insert`? Песочница:
>>> a = ["a", "b", "c", "d", "e", "f"]>>> a['a', 'b', 'c', 'd', 'e', 'f']>>> a.insert(3, "c")>>> a['a', 'b', 'c', 'c', 'd', 'e', 'f']
Те у тебя будет имямасива.insert(k, c)
Администрирование или программирование, что интересует?