Каждый день у меня проходит как предыдущий:дом-школа-дом...ну иногда и недолгие прогулки в кругу друзей или один.Наверно это и хочется больше всего изменить,хочется изменить череду серых будней.Я хочу найти себе занятие по душе,хобби какое-нибудь.Ну или питомца завести домашнего.
Каждый день я сижу за компом,нахожусь в виртуальном мире и непонятно зачем,хочу больше общения в реальном мире.Думаю начать заниматься спортом,регулярно.Это внесёт что-то новое в мою разнообразную жизнь.Я читал(уже не помню где),что жизнь становится лучше,когда ты каждый день вносишь в нее что-то новое...
Вот например,с понедельника можно начать бегать по утрам,вместо того чтоб еще пол часа валяться в кровати(что я всегда и делаю),во вторник можно почитать какую-нибудь книгу незнакомого раннее автора-тоже не плохо,вместо просиживания своего времени за компьютером.В среду можно встретиться с друзья,а не сидеть дома перед телефизором.В четверг сходить куда-нибудь,где я раньше не был(вот думаю куда)...ну и так далее.Хочу найти новых друзей,"новые взгляды на мир".Наверное-конец :)
1) Дрожжи(так как это не относиться к предмету которыми мы идем или что-то делаем)
2)Хлопоты(так как это не относиться к предмету(названия действий или состояния природы))
3) Дебри(не относиться не к одному из слов)
4)Извините, но я немогу сообразить к чему эти слова не относятся и, что из них надо вычеркнуть.
5)Лазурь( не предмет, а относиться к природе)
6) озимь(всходы, посевы, а остальные относяться к чему-то жесткому)
7) Извините, но я немогу сообразить к чему эти слова не относятся и, что из них надо вычеркнуть...=(((
const
sb='bcdfgjklmnpqrstvwxz';
s='Computer programming is a process of computer programs creation';
var
i,n:integer;
s1,sn,t:string;
begin
i:=1;
while s[i]<>' ' do Inc(i);
s1:=Copy(s,1,i-1);
n:=Length(s); i:=n;
while s[i]<>' ' do Dec(i);
sn:=Copy(s,i+1,n-i);
t:='';
for i:=1 to Length(s1) do
if Pos(s1[i],sb)>0 then t:=t+s1[i];
s1:=t;
t:='';
for i:=1 to Length(sn) do
if Pos(sn[i],sb)>0 then t:=t+sn[i];
sn:=t;
t:='';
for i:=1 to Length(s1) do
if Pos(s1[i],sn)>0 then
if Pos(s1[i],t)=0 then t:=t+s1[i];
for i:=1 to Length(t) do Write(t[i],' ');
Writeln
end.
Тестовый прогон:
t r
2. "Нормальное" решение
// PascalABC.NET 3.0, сборка 1073
const
sb='bcdfgjklmnpqrstvwxz';
s='Computer programming is a process of computer programs creation';
begin
var a:=s.ToWords(' ');
a[0].Intersect(a[a.Length-1]).Where(x->Pos(x,sb)>0).Println(',')
end.
Тестовый прогон:
t,r