Функция устройства монитор, мышь, наушники, процессор, принтер.

Монитор- графическая функция мышь- устройство ввода наушники- аудио устройство процессор- устройство записи принтер- внешнее мультимедийное устройство

Pascalвыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 god: =2008; if ((god mod 60)> =4)and((god mod 60)< 16) then write('зелено'); if ((god mod 60)> =16)and((god mod 60)< 28) then write('красно'); if (god mod 60> =28)and((god mod 60)< 40) then write('желто'); if (god mod 60> =40)and((god mod 60)< 52) then write('бело'); if ((god mod 60)> =52)or((god mod 60)< 4) then write('черно');   f: =((god mod 60) mod 12);   case f of   4: write('й крысы'); 5: write('й коровы'); 6: write('го тигра'); 7: write('го зайца'); 8: write('го дракона'); 9: write('й змеи'); 10: write('й лошади'); 11: write('й овцы'); 0: write('й обезьяны'); 1: write('й курицы'); 2: write('й собаки'); 3: write('й свиньи'); end;

// pascalabc.net 3.0, сборка 1088 const   n=10; // количество вводимых чмсел var   a: array[1..n] of integer;   i,k,t: integer; begin   writeln('введите через пробел ',n,' целых чисел');   k: =0;   for i: =1 to n do begin       read(t);       if odd(t) then begin inc(k); a[k]: =t end       end;   if k> 0 then begin       write('нечетные числа: ');       for i: =1 to k do write(a[i],' ');       writeln       end   else writeln('все введенные числа - четные') end. тестовое решение: введите через пробел 10 целых чисел 24 137 -53 46 0 -18 35 2 352 1111 нечетные числа: 137 -53 35 1111