Не получается с компа скинуть файл на флешку. что сделать?

Попробуй резервное копирование, а если опять же не получится, нажми на правую кнопку мыши и там будет со всем остальным списком "отправить " нажимаешь, выбираешь локальный диск твоей флешки и отправляешь.

Путь к файлу не забудь поменять var   t: text;   st: string;   s, i: integer;   c: char; begin   s : = 0;   st : = '';   assign(t, 'путь к файлу');   reset(t);   while not eof(t) do   begin     read(t, c);     if (ord(c) < > 13) then       st : = st + c     else if trystrtoint(st, i) then     begin       s : = s + i;       st : = '';     end     else       st : = '';   end;   if trystrtoint(st, i) then     s : = s + i;   close(t);   writeln(s); end.

Dim n as integer        dim massiv() as integer        dim summ as integer        dim i as integer        n = inputbox("введите n")        redim massiv(n)        for i = 0 to n             massiv(i) = int(rnd() * 100) + 1        next n = massiv(massiv.length - 1) for i = 0 to massiv.length - 1             if massiv(i) < n then summ += massiv(i)        next '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 msgbox (summ)