Моноаудиозапись
1(моно)*60*8*10000=4800000 бит/8=600000 байт
Стереоаудиозапись
2(стерео)*60*8*10000=9600000 бит/8=1200000 байт
<span>1 символ в кодировке Виндовс-1251 = 1 байт.
1536 симв.*1 байт/симв. = 1536 байт.
1536 / 1024 = 1,5кБайт.
</span>
Var
fullstr,s,s_int,s_rl,s_str: string;
int: integer;
rl: real;
space,err: integer;
begin
writeln('String:');
readln(fullstr);
while fullstr[1] = ' ' do
delete(fullstr,1,1);
while fullstr[length(fullstr)] = ' ' do
delete(fullstr,length(fullstr),1);
while pos(' ',fullstr) <> 0 do
delete(fullstr,pos(' ',fullstr),1);
s_int := '';
s_rl := '';
s_str := '';
while fullstr <> '' do begin
space := pos(' ',fullstr);
if space = 0 then
space := length(fullstr) + 1;
s := copy(fullstr,1,space-1);
val(s,int,err);
if err = 0 then
s_int := s_int + s + ' '
else begin
val(s,rl,err);
if err = 0 then
s_rl := s_rl + s + ' '
else
s_str := s_str + s + ' ';
end;
delete(fullstr,1,space);
end;
writeln('Integers: ',s_int);
writeln('Real: ',s_rl);
writeln('Words: ',s_str);
readln
end.
Надо скачать калькулятор, перевести в zip формат, после чего скачать apk
Var
i,min,max:integer;
a:array[1..70]of integer;
begin
for i:=1 to 70 do
begin
a[i]:=random(100);
write(a[i],' ');
if i=1 then min:=a[i]
else if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln;
writeln('Ответ: ',max-min);
<span>end.</span>