Var a,b1,b2,c,i:integer; begin readln(a); for i:=1 to 4 do begin c:=a mod 10; if c mod 2 = 0 then b1+=1 else b2+=1; a:=a div 10; end; writeln('Четных - ',b1,' нечетных - ',b2); end.
Думаю музыка для ушей это аналоговый сигнал. Аудиальный кортекс головного мозга музыканта воспринимает от ушей этот аналоговый стгнал (музыку) и его головной мозг переводит этот аналоговый сигнал в цифровой, ноты. У музыканта,в мозге есть АЦП, аналого-цифровой преобразователь, он слышит каждую ноту и сравнивает с эталоном по частоте, беря эталоны из своей памяти. Потому что у него хороший музыкальный слух. Память знает, что частота ноты Ля второй октавы 440 герц. Поток звука он сравнивает с эталонными нотами и записывает сами ноты. Я сумбурно объяснил?
Var a:array[1..100] of integer; n,i,k,c:integer; begin Randomize; write('n = '); readln(n); Writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(100); write(a[i]:6); end; writeln; for k := 1 to n-1 do for i := n-1 downto k do if a[i] > a[i+1] then begin c:=a[i]; a[i]:=a[i+1]; a[i+1]:=c end; Writeln('Отсортированный массив:'); for i:=1 to n do write(a[i]:6); writeln; end.
begin
readln(a);
for i:=1 to 4 do begin
c:=a mod 10;
if c mod 2 = 0 then b1+=1 else
b2+=1;
a:=a div 10;
end;
writeln('Четных - ',b1,' нечетных - ',b2);
end.