Var A:string; C:array['0'..'9'] of integer; i:integer; Begin Write('Введите натуральное число: ');ReadLn(A); For i:= 1 to Length(A) do if ('0'<=A[i])and(A[i]<='9') then C[A[i]]:=C[A[i]]+1; For i:= 1 to C['9'] do Write('9 '); For i:= 1 to C['6'] do Write('6 '); For i:= 1 to C['3'] do Write('3 '); WriteLn; For i:= 1 to C['0'] do Write('0 '); For i:= 1 to C['2'] do Write('2 '); For i:= 1 to C['4'] do Write('4 '); For i:= 1 to C['6'] do Write('6 '); For i:= 1 to C['8'] do Write('8 '); End.
Ниже этого меню, находится список звуков, которые присутствуют у выбранного спрайта или у сцены. Щёлкните по звуку в списке звуков, если хотите с ним дальше работать. Над ним появится крестик. Щёлкните по нему если хотите удалить звук.Справа от списка звуков расположен редактор выбранного звука. Нажмите на значок треугольника чтобы звук. Нажмите на значок квадрата чтобы остановить звук. Нажмите на значок круга чтобы записать звук с микрофона и добавить его к выбранному звуку. Кликните по надписи "Правка" или "Эффекты" для изменения звука, или добавления к нему различных эффектов. Но прежде чем сделать это, выделите часть звука, которую хотите изменить.
3600 если не ошибаюсь)
Объяснение: