Запишите полные имена всех файлов 1)локальный диск(с: ) 2)мои документы 3)фильмы 4)иванов 5)петров 6)интересный фильм.avi 7)qbasic.exe 8)письмо.txt 9)рисунки 11)море.bmp

С: \с: \мои документы с: \ фильмыс: \фильмы\ интересный фильм.aviс: \мои документы\иванов с: \мои документы\ петровс: \мои документы\иванов\ qbasic.exe  с: \мои документы\иванов\ рисункис: \мои документы\иванов\рисунки\ море.bmpна будущее, перефоткай страницу с этим . так ничего не понятно.  тебя спасло, что она у меня на диске завалялась. без той картинки это невозможно.

Советы, решившему купить компьютерзнания и умения, позволяющие уверенно чувствовать себя за клавиатурой пк, нельзя почерпнуть из программы вечерних новостей, занять в долг у "шибко грамотного" соседа или получить "обучением во сне", уснув с толстой книжкой под подушкой. умение работать с компьютером в работе с ним, в длительной борьбе с "железом", иногда - удачной, иногда - не . трудности могли бы остановить не одного начинающего пользователя, но знание компьютера, работа с основными офисными или, например, бухгалтерскими программами, стали в наше время почти столь же необходимым требованием при приеме на работу, как когда-то умение читать-писать. магически влекущий интернет тоже сыграл свою роль - чтобы получить "ключи" от огромного виртуального мира этой всемирной сети, многие готовы обучаться столько, сколько потребуется. мало этого, фактически компьютер нужен всем тем, кто не намерен отстать от стремительно развивающейся действительности. но каждому требуется свой пк, для решения определенного круга , более или менее доступный по цене и, конечно же, как можно более надежный и как можно менее вредный для оставшегося после покупки здоровья. понятно, что "повезет-не повезет" в этом случае не подходит - выбор должен вестись с четким пониманием что и как выбираем. 

1. var a,c: integer; m: set of 0..9; b: boolean; begin readln(a); m: =[]; b: =false; while a> 0 do   begin   c: =a mod 10;   if c in m then b: =true;   m: =m+[c];   a: =a div 10;   end; if b then writeln('да') else writeln('нет'); end. пример: 121 да 2. var a,b,c: integer; begin readln(a); c: =a; b: =0; while c> 0 do   begin   b: =b*10+c mod 10;   c: =c div 10;   end; if a=b then writeln('перевертыш') else writeln('нет'); end. пример: 121 перевертыш