Надеюсь, что это моно файл?
I = частота дискретизации * время * глубина звука
переводим все в биты, удобно решать в степенях 2, т.к. затем можно сократить.
Дерзай!!!
для контроля (215 Кб)
Возможны опечатки, т.к. плохо знаком с синтаксисом паскаля, но думаю все поймете.
a,i,m(12) as integer
for i=1 to 12 do
readln(m(i));
for i=1 to 6 do begin
a:=m(i);
m(i):=m(13-i);
m(12-i):=a;
end;
for i=1 to 12 do
writeln(m(i));
end.
Если что-то не понятно или выводит ошибку - пишите.
Смотря что ты можешь сделать
и какие усилия готова в него вложить!!!
BEGIN
writeln('Enter A number');
realdln(A);
writeln('Enter B number');
readln(B);
if (A<>B) then
begin
A:=A*5;
B:=B-5;
end else
begin
if ((A<0) and (B<0))
begin
A:=A*A;
B:=B*B
end;
end;
writeln(A, B);
END.
Блин! Начал писать программу, а комп ВЫЛЕТЕЛ....
Поэтому припоздал....
uses Crt;
var i, n, m, z1, z2 :integer;
begin
ClrScr;
Write (' n = ');
ReadLn(n);
WriteLn;
if (n<0) or (n>18) then WriteLn (' None!')
else begin
for i:=11 to 99 do
begin
m:=i;
z1:=m div 10;
z2:=m mod 10;
if (z1+z2=n) then Writeln(' m = ', m);
end;
end;
ReadLn;
end.