function opkd(n: integer): integer;
var i,k: integer;
begin
k:=0;
for i:=1 to n do if n mod i=0 then k:=k+1;
opkd:=k;
end;
var n,i,k: integer;
begin
k:=0;
readln(n);
for i:=1 to n do if opkd(i) mod 2=0 then k:=k+1;
write(k);
end.
Если это среда разработки то нужно объявить переменные X и Y
далее написать схему выполнения данной задачи
Пуск-Панель управления-Мышь- Свойства я думаю так
2^7=128
а для 8 разных кодов надо 3 бита
1: удали <span>Sony Vegas
2: установи </span>K-Lite Codec Pack(либо же переустанови, если таковой имеется), но перед установкой удали старые кодеки.
3: установи Quick Time и ПЕРЕЗАГРУЗИ ПК
4:Установи Sony Vegas (13.0), если не прокатит откатись до 12-ой версии.