Любая одиночная инструкция не является алгоритмом, так как исходя из определения алгоритма, это прежде всего набор инструкций! И если инструкция следует за инструкцией, то образуется алгоритм. Пример из ассемблера, инструкция mov EAX, 245AC сама по себе не является алгоритмом, а если добавить например следом за ней mov EBX, EAX, уже получается алгоритм
Смотря с чего перестал выходить звук))
В первых, не факт то что проблема со звуковой картой,
во вторых если уверены что проблема со звуковой картой то покупаете новую звуковую карту. Странный если честно вопрос..<span />
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger;
var (s,d,e):=(n div 100, (n div 10) mod 10, n mod 10);
Writeln('Cотни ',s,', десятки ',d,', единицы ',e);
Writeln('Сумма цифр ',s+d+e,', их произведение ',s*d*e);
Writeln('Справа налево: ',100*e+10*d+s);
Writeln('Перестановка сотен в конец: ',100*d+10*e+s)
end.
<u>Пример</u>
328
Cотни 3, десятки 2, единицы 8
Сумма цифр 13, их произведение 48
Справа налево: 823
Перестановка сотен в конец: 283
var a,sum,i:integer;
begin
for i:=1 to 5 do
begin
readln (a);
if (a mod 4=0) and (a mod 10=6) then sum:=sum+a;
end;
writeln (sum);
readln;
end.
