Смотря с чего перестал выходить звук))
В первых, не факт то что проблема со звуковой картой,
во вторых если уверены что проблема со звуковой картой то покупаете новую звуковую карту. Странный если честно вопрос..<span />
Задание #1
var a:integer;
begin
a:=10;
while a<=150 do
begin
write (a,' ');
a:=a+10
end;
writeln;
a:=200;
repeat
write (a,' ');
a:=a-10
until a<100
end.
Задание #2
var a,b:integer;
begin
readln(a,b);
if a>b then write (a) else write (b)
end.
Задания #3
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write (a,' ',b+c);
if (b>a) and (b>c) then write (b,' ',a+c);
if (c>a) and (c>b) then write (c,' ',a+b)
end.
Когда есть компьютер и когда его нет.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqIntegerWhile(t->t<>0).Where(t->Abs(t).Between(100,999))
.Count.Println
end.
<u>Пример</u>
4492 13638 -4490 418 13985 -426 5805 -26574 28710 -378 17920 1886 -24200 0
3
Любой один символ равен одному байту
а один байт=8 битам