Не совсем чётко сформулировано задание. Но попробую хоть в чём-то хотя можно ответить только на вопрос типа "Сравнить размеры этих файлов".
Во втором файле по сравнению с первым
стерео *2
16 бит *2
48000 *6 (после * указываю во сколько раз больше, чем в 1 случае)
Таким образом, объём второго файла будет в 2*2*6=24раза больше, чем первого.
Ну где-то так...
Да, примерный объём первого файла за 10сек оценивается просто
10*1*8000=80 000 байт = 78Кбайт
Ну а второго
80000*24=1920000байт = 1875Кб=1.8М
а я разве их не решал
но ладнооо
1)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);
i:=1;
repeat
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.
2 я не знаю как решать
3)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
writeln(x);
end.
4)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka)-1 do
for k:=1 to length(stroka)-i do if mas[k]=mas[k+1] then x:=x+1;
if x>0 then writeln('TRUE')
else writeln('FALSE');
end.
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПОСТ
N = 12;
ПЕР
массив: РЯД N ИЗ ЦЕЛ;
отр, сч: ЦЕЛ;
УКАЗ
отр := 0;
ОТ сч := 0 ДО N - 1 ВЫП
ЕСЛИ массив[сч] < 0 ТО
УВЕЛИЧИТЬ(отр)
КОН
КОН;
Вывод.Цепь("%d", отр, 0, 0, 0)
КОН Задание.