оцените условия применения икт с точки зрения безопасности жизнедеятельности. отчет-решение должен быть представлен в форме таблицы (перечень икт, условия применения и необходимые пояснения/рассуждения/точка зрения).
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var st:='balloon duster tooth loot cooperation'; // не вводим // var st:=ReadlnString; // если хочется вводить var s:=st.ToWords; // массив из слов s[i] s.Println; // показать исходный массив слов // собственно решение var i:=s.Select(w->w.Length).ToArray.IndexMin; // индекс короткого слова s[i]:=s[i].Replace('oo',''); s.Println; // результат end.
Большинство компьютерных экспертов сходятся в том, что история развития принтера началась почти двести лет назад, когда в 1822 году англичанин Бэббидж начал разработку «большой разностной машины», которая должна была делать расчёты и тут же печатать в виде таблиц их результаты. К 1834 году машина так и не была создана, хотя на её разработку ушло 23 тысячи фунтов, однако, работа над ней была прервана, а 1842 году проект Бэббиджа перестал финансироваться британским правительством. Большая разностная машина умерла, так и не родившись.Любопытно, что через 150 лет сотрудники Лондонского научного музея по сохранившимся чертежам смогли воссоздать этот уникальный прибор, являющийся фактически, механической вычислительной машиной. В него входили более 8 тысяч деталей, а весил данный «калькулятор» 5 тонн. Но самое главное – машина на самом деле могла решать простейшие уравнения и печатать на бумаге результаты! Поэтому Бэббиджа с определённой натяжкой можно назвать тем человеком, кто изобрел принтер.
// Внимание! Если программа не работает, обновите версию!
begin
var st:='balloon duster tooth loot cooperation'; // не вводим
// var st:=ReadlnString; // если хочется вводить
var s:=st.ToWords; // массив из слов s[i]
s.Println; // показать исходный массив слов
// собственно решение
var i:=s.Select(w->w.Length).ToArray.IndexMin; // индекс короткого слова
s[i]:=s[i].Replace('oo','');
s.Println; // результат
end.
Результат
balloon duster tooth loot cooperation
balloon duster tooth lt cooperation