// PascalABC.NET 3.0, сборка 1073 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.
Электронная почта - это основное средство коммуникаций Internet. Она во многом похожа на обычную почту. С ее письмо - текст, снабженный стандартным заголовком (конвертом) - доставляется по указанному адресу, который определяет местонахождение сервера и имя адресата, который имеет почтовый ящик на этом сервере, с тем, чтобы адресат мог его достать и прочесть в удобное время.
Электронная почта оказалась во многом удобнее обычной, "бумажной". Не говоря уже о том, что не приходится вставать из-за компьютера и идти до почтового ящика, чтобы получить или отправить письмо.
Электронная почта является наиболее популярным дополнением к вычислительным сетям. Это но весьма полезное средство. При использовании для связи между сотрудниками всего офиса она оказывается удобнее телефона, так как позволяет передавать отчеты, таблицы, диаграммы и рисунки, которые по телефону передать трудно.
Для электронной почты выпускается довольно много программных продуктов, поэтому с выбором нет проблем. Так, в некоторых случаях даже поставщики операционных систем уже комплектуют свои продукты средствами поддержки электронной почты. Обычно электронная почта работает в пределах локальной сети, но такие системы глобальных вычислительных сетей, как MCI Mail, INTERNET, RELCOM, CompuServe и др., предлагают электронно-почтовые услуги в национальном и даже в мировом масштабе. Работа электронной почты, не зависит от разницы в часовых поясах, и можно вести переписку с электронной почты с адресатом, который находится на другом конце света.
Обычно для создания и получения сообщений электронной почты применяются специальные почтовые программы, такие как Microsoft Outlook Express, Netscape Composer, The Bat, Eudora Pegasus, Microsoft Outlook и т.д..
Хотя электронная почта может рассматриваться как частный случай передачи файлов, она имеет ряд особенностей, не привычных для стандартных процедур пересылки файлов. Во-первых, отправитель и получатель почти всегда люди, а не машины. Это означает, что служба электронной почты состоит из двух различных, но тесно взаимосвязанных частей: одна обеспечивает взаимодействие с человеком (например, составление, редактирование, прочтение сообщений), другая - передачу сообщений (например, рассылка по спискам, обеспечение передачи).
Другое различие между электронной почтой и средствами передачи файлов общего назначения состоит в том, что почтовые послания представляют собой четко структурированный документ. Во многих системах каждое послание сопровождается большим количеством дополнительных полей. Они включают в себя имя и адрес отправителя, имя и адрес получателя, дату и время отправки письма, перечень людей, которым направлена копия письма, уровень значимости, степень секретности и многое другое.
// PascalABC.NET 3.0, сборка 1073
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
Электронная почта - это основное средство коммуникаций Internet. Она во многом похожа на обычную почту. С ее письмо - текст, снабженный стандартным заголовком (конвертом) - доставляется по указанному адресу, который определяет местонахождение сервера и имя адресата, который имеет почтовый ящик на этом сервере, с тем, чтобы адресат мог его достать и прочесть в удобное время.
Электронная почта оказалась во многом удобнее обычной, "бумажной". Не говоря уже о том, что не приходится вставать из-за компьютера и идти до почтового ящика, чтобы получить или отправить письмо.
Электронная почта является наиболее популярным дополнением к вычислительным сетям. Это но весьма полезное средство. При использовании для связи между сотрудниками всего офиса она оказывается удобнее телефона, так как позволяет передавать отчеты, таблицы, диаграммы и рисунки, которые по телефону передать трудно.
Для электронной почты выпускается довольно много программных продуктов, поэтому с выбором нет проблем. Так, в некоторых случаях даже поставщики операционных систем уже комплектуют свои продукты средствами поддержки электронной почты. Обычно электронная почта работает в пределах локальной сети, но такие системы глобальных вычислительных сетей, как MCI Mail, INTERNET, RELCOM, CompuServe и др., предлагают электронно-почтовые услуги в национальном и даже в мировом масштабе. Работа электронной почты, не зависит от разницы в часовых поясах, и можно вести переписку с электронной почты с адресатом, который находится на другом конце света.
Обычно для создания и получения сообщений электронной почты применяются специальные почтовые программы, такие как Microsoft Outlook Express, Netscape Composer, The Bat, Eudora Pegasus, Microsoft Outlook и т.д..
Хотя электронная почта может рассматриваться как частный случай передачи файлов, она имеет ряд особенностей, не привычных для стандартных процедур пересылки файлов. Во-первых, отправитель и получатель почти всегда люди, а не машины. Это означает, что служба электронной почты состоит из двух различных, но тесно взаимосвязанных частей: одна обеспечивает взаимодействие с человеком (например, составление, редактирование, прочтение сообщений), другая - передачу сообщений (например, рассылка по спискам, обеспечение передачи).
Другое различие между электронной почтой и средствами передачи файлов общего назначения состоит в том, что почтовые послания представляют собой четко структурированный документ. Во многих системах каждое послание сопровождается большим количеством дополнительных полей. Они включают в себя имя и адрес отправителя, имя и адрес получателя, дату и время отправки письма, перечень людей, которым направлена копия письма, уровень значимости, степень секретности и многое другое.
Объяснение: