Program abc;
const
<span> n = 10;
</span>var
<span> m: array [1..n] of integer;
</span><span> i: integer;
</span>begin
<span> for i := 1 to n do
</span><span> begin</span><span> m[i] := sqr(i) - 1;
</span><span> writeln(m[i]);</span><span>
end;
</span><span>end.</span>
Формула для определения информационного объёма звукового байла:
N = k L f t
k - количество каналов (1 для моно, 2 для стерео)
L - глубина кодирования (количество информации в одном измерении)
f - частота (количество измерений в секунду)
t - продолжительность записи
1) N = 1 * 8 бит * 8000 Гц * 10 с = 640 000 бит = 80 000 байт = 78,1 Кб
2) N = 2 * 16 бит * 48000 Гц * 10 с = 15 360 000 бит = 1 920 000 байт = 1875 Кб = 1,8 Мб
P.S программа работает для русских символов. Если нужны латинские, то поменяйте все "а","у" и "х" на соответствующие
program n1;
uses crt;
var
st:string;
i:integer;
begin
writeln('Введите строку'); readln(st);
for i:=1 to length(st) do
if (st[i]='а') and (st[i+1]='х') then st[i]:='у';
writeln(st);
<span>end.</span>
<span>word - абзац -отступы и интервалы(у меня сразу написанно межстрочный интервал) - интервал
</span>