Program zz;
var i,n,m:integer;
begin
readln(n,m);
for i:=1 to n do
write('?') ;
for i:=1 to m do
write('!') ;
end.<span>
</span>
1)(800*8)/(20*40)=8бит . 2^8=512 цветов
2)Хз . Давно это было . Я бы написал паинт и фотошоп .
3)10*41000*8=3280000 бит = 410000 байт = 400 кбайт (Вообще еще должно быть указанно какой звук - моно , стерео .... )
4)О_о
<em>var a, b, i, c :integer;</em>
<em>begin</em>
<em> read (a, b); </em><em>// вводим a и b </em>
<em> for i:=1 to 5 do</em>
<em> begin</em>
<em> c:=random(b-a)+a; </em><em>// присваиваем рандомные числа в заданном </em><em>промежутке</em>
<em> writeln (c); </em><em>// выводим число</em>
<em> end;</em>
<span><em>end.</em></span>