Промышленные роботы дают возможность автоматизировать все виды операций. Сфера применения довольно широка: заготовительное производство, механообработка, сварочное производство, сборочное производство, термообработка, гальванические и лакокрасочные покрытия, транспортно-накопительные системы. В обрабатывающей промышленности отрасли лидеры по покупкам роботов не меняются уже более пяти лет: это автомобильная промышленность и электроника.
Роботы применяются практически во всех отраслях промышленности, их целесообразность применения диктуется прежде всего интересами человека, удобством и безопасностью работы.
Самая важная роль отводится роботам, заменяющим человека при выполнении различных задач в экстремальных условиях: на больших глубинах, в вакууме, в космосе, на участках с радиационно- взрыво- и пожароопасными условиями, а также на химических и фармацевтических производствах.
// PascalABC.Net 3.2
begin
Write(ReadlnString('->').ToWords.Where(x->x.Left(2)='со').Count)
end.
Пример:
-> Три собаки сосали одну косточку
2
А вот так (примерно, потому что обычно еще хуже) учат писать программы в школе...
var
s:string;
i,n,k,p:integer;
begin
Write('->'); Readln(s);
if Copy(s,1,2)='со' then k:=1 else k:=0;
Delete(s,1,3);
repeat
i:=Pos(' со',s);
if i>0 then begin
Inc(k);
Delete(s,1,i+3)
end
until i=0;
Writeln(k)
end.