Паша, работая над проектом по географии, создал следующие файлы (перечислены в скриншоте). Укажите полное имя папки, которая останется пустой при удалении всех файлов с расширением .doc. Считайте, что других файлов и папок на диске D нет. * D:\География
D:\Учёба\Списки
D:\Учёба
D:\География\Проект

ответ прост D:\География

D:\Учёба\Списки

Объяснение:

На диске D:\ есть 2 папки:

D:\География

D:\Учёба

В папке География есть папка Проект:

D:\География\Проект

В папке Проект есть 3 файла:

Африка.jpeg

Колумб.png

Реки.doc

В папке Учёба есть папка Списки:

D:\Учёба\Списки

В папке Списки есть 2 файла:

Страны.doc

Мадагаскарские_животные.doc

При удалении всех файлов с расширением .doc пустой останется папка Списки, т.к. в ней 2 файла и оба с расширением .doc

программа на паскале:

program xxx;       var a, b: real; begin  writeln('введите количество миль');   readln(a);   b: = a*1.6;   writeln('кол-во киллометров - ',b)end.

1)

program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c);

if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln('              ',min); readkey; end.

2)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a); min: =a; for i: =1 to 2 do                       

                                                                beginreadln(a); if a< min then min: =a;                                                             end; writeln(min);

readkey;

end.

3)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a,b,c); if a< b then b: =a; if c< a then b: =c; writeln(b); readkey; end.