test_list = []#пустий список
while True:#цикл
----x = (input(": "))#заповнення списку
----if x == 'q':#якщо ввести це то завершити заповнення!1
--------break#стоп
----test_list.append(x)#додавання Х до списку
print(test_list)#вивід списку
q = 0
while q<len(test_list):#перебор циклу
----if int(test_list[q])%2!=0:#якщо елемент списку не ділиться на 2
--------(test_list[q+1]) = 0#наступний елемент равний
----q+=1#ітерація
print(test_list)#вивід кінцевого результату
Program pm;
uses crt;
var X:array[1..1000] of integer; k,a,b,i:integer;
begin
clrscr;
write('Введите кол-во элементов массива: ');
read(k);
writeln;
write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): ');
repeat
read(a,b);
until a<=b;
writeln;
randomize;
for i:=1 to k do X[i]:=random(b-a+1)+a;
writeln('Ваш массив:');
for i:=1 to k do write(X[i]:5);
writeln;
write('Введите элемент поиска: ');
read(b);
a:=0;
for i:=1 to k do if X[i]=b then a:=i;
if a>0 then writeln('Элемент со значением ',b,' имеет индекс ',a)
else writeln('Элемента не существует!');
readkey;
<span>end.</span>
Var
i, n, j, p, s: longint;
st: string;
b: boolean;
begin
s := 0;
b := false;
readln(n);
for i := 1 to n.ToString.Length do
s := s + strtoint(n.ToString[i]);
for i := 10 to n - 1 do
begin
st := i.ToString;
p := 1;
for j := 1 to st.Length do
p := p * strtoint(st[j]);
if(p = s) then begin b := true;writeln(i); end;
end;
if(b = false) then write('Нет');
end.
Объем файла : С=t*b*N, где С- Объем звукозаписи в байтах, t - время в сек., b- разрядность в байтах, N - частота дискретизации в Гц или 1/сек.
С= 60*(16/8)*44000 = 5280000 байт = 5156 КБайт = 5,03 Мбайт
Продолжительность звукозаписи из той же формулы:
t=C/b*N C- Объем диска в байтах. b- разрядность в байтах, t- время в сек.
t=(700*1024*1024)/(16/8)*44000= 8340,94 сек = 139 мин.