Врезультате поломки у вити перестал выходить звук на колонки.ему посоветовпли купить новую звуковую карту.какое устройство нужно выбрать вите?

Смотря с чего перестал выходить звук)) в первых, не факт то что проблема со звуковой картой, во вторых если уверены что проблема со звуковой картой то покупаете новую звуковую карту. странный если честно вопрос..

1. вот так это пишется с функцией // pascalabc.net 3.1, сборка 1200 от 13.03.2016 function isprime(n: integer): boolean; begin   if n< 4 then result: =true   else begin       var found: = (n mod 2 = 0);       var p: =3;       while (not found) and (sqr(p)< =n) do           begin           found: =(n mod p = 0);           p+=2           end;       result: =not found       end end; begin   writeln('k=',arrrandom(readinteger('n='),1,999).println.       where(x-> isprime() end. тестовое решение: n= 10 401 828 780 444 694 965 23 341 673 875 k=3 2. а вот так это пишется с процедурой // pascalabc.net 3.1, сборка 1200 от 13.03.2016 procedure isprime(n: integer; var res: boolean); begin   if n< 4 then res: =true   else begin       var found: = (n mod 2 = 0);       var p: =3;       while (not found) and (sqr(p)< =n) do           begin           found: =(n mod p = 0);           p+=2           end;       res: =not found       end end; begin   var a: =arrrandom(readinteger('n='),1,999); a.println;   var k: =0;   var prime: boolean;   foreach var e in a do begin       isprime(e,prime);       if prime then inc(k)       end;   writeln('k=',k) end. тестовое решение: n= 12 199 43 71 365 417 904 170 212 694 103 161 689 k=4