Program n1; var s: string; sum,i: longint; begin sum := 0; write('введите число: '); readln (s); for i := 1 to (length(s) div 2) do sum := sum + (ord(s[i]) - 48); writeln ('сумма 1 половины цифр числа равна ',sum); end.
Если вы уже строки, то вот program summa; var s: string; I, sum: integer; begin sum := 0; Readln (s); for i := 1 to (length(s) div 2) do sum := sum + (ord(s[i]) - 48); Writeln (sum); end.
Думаю музыка для ушей это аналоговый сигнал. Аудиальный кортекс головного мозга музыканта воспринимает от ушей этот аналоговый стгнал (музыку) и его головной мозг переводит этот аналоговый сигнал в цифровой, ноты. У музыканта,в мозге есть АЦП, аналого-цифровой преобразователь, он слышит каждую ноту и сравнивает с эталоном по частоте, беря эталоны из своей памяти. Потому что у него хороший музыкальный слух. Память знает, что частота ноты Ля второй октавы 440 герц. Поток звука он сравнивает с эталонными нотами и записывает сами ноты. Я сумбурно объяснил?
Var a: array[1..n] of integer; k, i, m: byte; min: integer;
begin Write('Razmer massiva: '); Readln(k); if (k < 0) or (k > 100) then begin Writeln('Razmer dolzhen byt bolshe 0 i menshe 100'); Readln; Exit; end; Randomize; Writeln('Ishodn. massiv: '); for i:=1 to k do begin a[i]:=Random(101)-50; write(a[i]:4); end; min:=a[1]; for i:=2 to k do if a[i] < min then begin min:=a[i]; m:=i; end; a[m] := a[1]; a[1] := min; Writeln; Writeln('Min element = ', min:4, ' v posicii ', m:3); Writeln('Rezult. massiv: '); for i:=1 to k do write(a[i]:4); readln; end.
var s: string;
sum,i: longint;
begin
sum := 0;
write('введите число: ');
readln (s);
for i := 1 to (length(s) div 2) do
sum := sum + (ord(s[i]) - 48);
writeln ('сумма 1 половины цифр числа равна ',sum);
end.