Var sum,i:integer; beginfor i:=1 to 500 do if (i mod 13 =0) then sum:=sum+i;writeln(sum);end.
1: удали <span>Sony Vegas
2: установи </span>K-Lite Codec Pack(либо же переустанови, если таковой имеется), но перед установкой удали старые кодеки.
3: установи Quick Time и ПЕРЕЗАГРУЗИ ПК
4:Установи Sony Vegas (13.0), если не прокатит откатись до 12-ой версии.
Это обонятельная информация
так как говорится про запах, а нос это орган обоняния