Var
A,r1,r2,r3,r4:integer;
Begin
For A:= 1000 to 9999 do
Begin
r1:=A div 1000;
r2:=(A div 100) mod 10;
r3:=(A div 10) mod 10;
r4:=A mod 10;
if (r1<>r2)and(r1<>r3)and(r1<>r4)and(r2<>r3)and(r2<>r4)and(r3<>r4) then
Write(A,' ')
End;
End.
Объем видеофайла=(объем видео + стерео звука) * время/сжатие
<span>видео шир выс объем кадра кадры видео бит
</span><span> 640 480 307200 25 7680000
</span><span>звук частота глуб каналы звук бит
</span><span> 22000 16 2 704000
</span><span>видео+ звук время время объем виде-файла без сжатия
</span><span>8384000 5мин*60 300 2515200000</span>
объем виде-файла с сжатием
251520000 бит
<span>245625 Кбит</span>
<span>допустим первые три массива:
int a[10], b[10], c[10];
</span> int d[10] //четвертый массив
for (int i = 0; i < 0; ++i)
{
d[i] = a[i];
if(b[i]>d[i])
{
d[i] = b[i];
}
if ( c[i] > d[i])
{
d[i] = c[i];
}
<span>}</span>
Длинна символа в кодировке <span>Windows-1251 составляет 1 байт.
В 1kB - 1024B.
Таким образом будет 1536/1024 = 1,5kB </span>
Документ Word 2007 - в прилагаемом файле