Несколько вариантов может быть.
Попробуйте сделать диагностику проблем со звуком windows
Возможно вы в настройках звука перетащили ползунок звука на правое ухо а лево убрали ( вам нужно перетащить его в центр ) ниже прикреплён пример таких настроек
Возможно вам нужно переустановить драйвера на звуковую плату ( не беспокойтесь есть много видео на ютуб на эту тему )
Объяснение:
Маркировки. Обозначают мощность. Самые современные (начиная и с Geforce 200 серии) имеют GT, GTS, GTX.
До Geforce 9 серии можно встретить также GSO,GS, еще раньше LE.
Например Geforce 9600GSO,Geforce 9300GS,Geforce 9500GT,Geforce 9800GTX+,Geforce 8600GTS,Geforce 8600GT,Geforce 7900GX2,Geforce 7950GT,Geforce GTX 295...
Самые слабые ето LE,GS,GSO.Более мощнее за них GT.GTS мощнее за GT.GTX мощнее за GTS.И бывает Ultra (например Geforce 8800Ultra тоесть топовая, флагманская тоесть самая мощь). Также есть маркировка GX2 ето означает что карта двухчиповая (две видеокарты в одной) .
Например Geforce 8800Ultra мощнее за 8800GT и также мощнее за 9300GS.
Geforce 8600GTS мощнее за 8600GT.
Geforce GTX 295 тоже двухчиповая (уже без маркировки GX2.Такую маркировку можно встретить до Geforce 9 серии. Последней была Geforce 9800GX2).
Geforce GTX 260 мощнее за Geforce 9800GTX.
В паскале
1) program one;
uses crt;
var a:array [1..10] of integer;
x: real; i:integer;
begin
clrscr;
x:=0;
for i:=1 to 10 do
readln(A[i]);
for i:=1 to 10 do
begin
if (A[i]<0) or (A[i] mod 2=0) then
x:=x+Sqr(A[i]);
end;
writeln;
write(x);
end.
2)
program two;
uses crt;
var a:array [1..52] of integer;
x,i: integer;
begin
clrscr;
x:=34;
for i:=1 to 52 do
begin
A[i]:=1+x;
x:=x+1;
if (A[i] mod 7 =1)or (A[i] mod 7 =2) or (A[i] mod 7 =5)
then writeln(A[i]);
end;
end.
3)
Program three;
Uses crt;
var n,x:integer; a,y:real;
begin
Clrscr;
readln(a,n);
for x:=1 to n do
y:=x*a;
writeln(y);
end.
4)
Program four;
Uses crt;
var A:array [1..100] of integer;
n,i,max,x:integer;
begin
clrscr;
writeln('vvedite kol-vo elementov');
readln(n);
writeln('Vvedite elementy');
for i:=1 to n do
read(A[i]);
for i:=1 to n do
begin
max:=A[1];
if (A[i] <0) and (A[i]>A[x])
then max:=A[i];
x:=i;
end;
writeln ('Naib',max,'nomer',x);
end.
5)
Program abc;
Uses crt;
var S,a,b:integer;
begin
clrscr;
S:=0;
a:=1;
b:=3;
while a<98 do
begin
while b<100 do
begin
S:=S+b-a;
a:=a+4;
b:=b+4;
end;
end;
writeln(s);
end.
не заню наверно сломался у меня тоже так