125 829 120 Бит в 15 Мбайт
Program fagasg;
var g,h: Real;
i: integer;
begin
g:=3;
h:=3;
For i:=2 to 10 do
begin
g:=g+i+1;
h:=g*h;
end;
Writeln(h);
<span>end. </span>
Var K,n:integer;
S:real;
Begin
n:=0;
Write('K = ');ReadLn(K);
For K:= 1 to K do
Begin
Write((12*K-21)/3,' ');
if (12*K-21)/3 > 0 then
Begin
S:=S+(12*K-21)/3;
n:=n+1
End;
End;
WriteLn;
Write('Sr = ',S/n)
End.
Смотря с чего перестал выходить звук))
В первых, не факт то что проблема со звуковой картой,
во вторых если уверены что проблема со звуковой картой то покупаете новую звуковую карту. Странный если честно вопрос..<span />