Уподруги на телефоне есть карта памяти и что бы быстро перекинуть песню я скопировала песню со своей карты памяти на память моего телефона и вставила карту памяти подруги в свой телефон, песню скопировала на подругину карту, а когда ее опять вставили в подругин телефон то она не отобразилась. почему?

иногда такое случается,особенно,если модели телефонов разные. у меня так было.данные на карте не восстановились, пока не втавила ее в тел, с которым она продавалась

не отобразилась карта или песня? если карта памяти, то у меня было моей карте памяти было уже 2 года, а ты срок не указала. возможно, просто сломалась, глюканула.

'на первом листе внесите данные 'при добавлении записей формулу вычисления задолженности добавлять не надо 'запускаете макрос - результат (отчет) на втором листе 'на первом листе формулы пересчитывается - результаты обновляются 'форма в этом случае -излишне dim i, j, s, a sub othet () dim info as variant 'clear othet(2 list)   sheets(2).select       range("a1: i1").select       with selection               .horizontalalignment = xlgeneral:               .verticalalignment = xlbottom               .addindent = false:               .indentlevel = 0:     .shrinktofit = false:                   .mergecells = true       end with       selection.font.bold = true       with selection       end with sheets(2).cells(1, 1) = "отчет" 'shapka 1 list sheets(1).select   info = array("", "фамилия", "адрес", "дата", "стоимость заказа", "сумма аванса", "задолженность", "вид заказа") for i = 1 to ubound(info)   cells(1, i) = info(i) next i = 2 'расчет долга while cells(i, 1) < > ""   cells(i, 5) = "=d" + chr(48 + i) + "-e" + chr(48 + i)   i = i + 1 wend rows("1: 1").select selection.autofilter a = "" + "> " + inputbox("укажите задолженность", "", 0) + "" selection.autofilter field: =5, criteria1: =a, operator: =xland range("a1: g" + chr(48 + i) + "").copy sheets(2).range("a2") sheets(1).select selection.autofilter end sub

Замечание: данные в файле должны быть записаны по одному числу в строке. const   m=100; { максимальное количество чисел в файле } var   f: text;   i,j,n,k: integer;   a: array[1..m] of integer; begin   { читаем данные из файла в массив }   assign(f,'superfile.txt'); reset(f);   i: =0;   while not eof(f) do begin inc(i); readln(f,a[i]) end;   close(f);   n: =i;   { сортируем массив по возрастанию методом пузырька }   for i : = 1 to n-1 do       for j : = 1 to n-i do           if a[j] > a[j+1] then           begin k : = a[j]; a[j] : = a[j+1]; a[j+1] : = k end;   { заполняем файл из массива }   rewrite(f);   for i: =1 to n do writeln(f,a[i],' ');   close(f) end.