Для селектора в виде атрибута [type] задать свойство цвета со значением white повысить специфичность
для селектора в виде тега button и атрибута [type="reset"] задай свойство color со значением red

Сообщение по информатике на тему «Информационное общество»

 

    Под информационным обществом, как правило, понимают общество, в котором большинство работающих занято производством, хранением, переработкой и реализацией информации, особенно высшие ее формы – знания.

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

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

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

 

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var s:string:='The factors of 12 are 1, 12, 2, 6, 3 and 4';
  s.Where(c->c in ['0'..'9']).Distinct.Println
end.

Результат выполнения программы:
1 2 6 3 4

Если хочется именно СОЗДАТЬ множество, а потом его вывести, то:

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var s: string := 'The factors of 12 are 1, 12, 2, 6, 3 and 4';
  var s1:=s.Where(c -> c in ['0'..'9']).Distinct;
  var c:set of '0'..'9':=[];
  foreach var e in s1 do Include(c,e);
  Writeln(c)
end.

Результат выполнения программы:
{3,2,4,6,1}