Среди приведённых названий устройств отметьте те, что являются устройствами ввода информации: Принтер

Микрофон

Видеопроектор

Графопостроитель

Акустические колонки

Джойстик

Цифровой микроскоп

Сканер

Встроенный динамик

Тачпад

Наушники

Web-камера

Тачскрин

Цифровой фотоаппарат

Клавиатура

Графический планшет

Мышь​

Джойстик

Микрофон

Клавиатура

Графический планшет

вроде все

мышь,клавиатура,графический планшет,тачпад,тачскрин

Объяснение:

возможно микрофон,но это не точно ...

хотя бы что-то я тебе подсказала

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.

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

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))