1.ниже указаны имена файлов. выбери из них имена текстовых файлов, графических файлов, программ. aaa.bmp, leto.doc, mama.jpg, ura.wav, dog.txt, cat.jpg, boy.exe, music.txt, bоок.mpз, box.exe, game.bmp, vopros.wav, otvet.txt. 2.отдели имена файлов от имен папок, неправильные имена пропускай. lettet.txt, book, name*2, list.doc, 2006 год, windows.jpg, windows, dom.doc. ответ: файлы - lettet.txt, list.doc, windows.jpg, dom.doc; папки - book, 2006 год, windows.

Все что doc, и txt это текстовый файл, графические это jpg wav, а программы bmp, exe

Вес 1 изделия - 89,4 г количество изделий - 1 000 000 шт. общий вес - ? 89,4  *  1  000  000 =89 400 000 г = 89  400 кг = 894 ц = 89,4 т ответ: общий вес 1   млн. изделий составляет 89,4 т. реализация в pascal: var m, ves: real;       k: integer; begin   write('введите вес одного изделия в граммах:   '); readln(m);   write('введите количество этих изделий:   '); readln(k);   ves: =m*k;   write('общий вес составит  ', ves: 7: 2, 'г =  ', ves/1000: 7: 2,'кг =  ', ves/1000000: 7: 2,'т'  ); end.

Uses crt; var r: array [1..10] of integer;         nev, n, min,i, zap: integer; begin     clrscr;     write('введите возраст невесты: '); readln(nev);     write('введите число женихов: '); readln(n);     if n< 2 then     for i: =1 to n do     begin     write('введите возраст ',i,'-го жениха: '); readln(r[i]);     end;     i: =0; zap: =0;     while (zap=0) and (i< =n) do begin         i: =i+1;       min: =nev-r[i];       if min> 0 then zap: =i;     end;     if i< > n then     begin       for i: =zap to n do       begin           if min> (nev-r[i]) then           begin             zap: =i;             min: =nev-r[i];             end;         end;       writeln('самый молодой жених старше невесты в возрасте ',r[zap], ' лет. разница в возрасте составляет ', min, ' лет.');       writeln ('по счету это ',i,'-ый жених');     end     else writeln('среди женихов нет подходящего для нашей невесты.');   end;   else writeln('число женихов должно быть более 2! '); end.