1. Словно смелый капитан, А на нем горит экран.
Яркой радугой он дышит,
И на нем компьютер пишет.
И рисует без запинки
Всевозможные картинки.
На верху картинки всей
Размещается …
2. Для чего же этот ящик?
Он в себя бумагу тащит,
И сейчас же буквы, точки,
Запятые – строчка к строчке –
Напечатает картинки
Ловкий мастер –
Струйный …
3. Этот урок все обожают,
На этом уроке часто играют,
Не может уже без него математика,
Он называется …
4. А теперь, друзья, загадка:
Что такое: рукоятка,
Кнопки две, курок и хвостик?
Ну, конечно, это …
5. По клавишам прыг да скок –
Береги ноготок!
Раз-два, и готово –
Отстукали слово!
Вот где пальцам физкультура!
Это вот … 6. Скромный серый колобок,
Длинный тонкий проводок,
Ну а на коробке –
Две или три кнопки.
В зоопарке есть зайчишка,
У компьютера есть …
7. В ней записаны программы
И для папы, и для мамы!
В упаковке, как конфета,
Быстро вертится …
8. Он живет в системном блоке,
Не работает без тока,
Очень умный – как профессор.
Называется …
9. Около дисплея – главный блок:
Там бежит электроток
К самым важным микросхемам.
Этот блок зовут …
10. Как ее мы все не любим,
Ею мы компьютер губим.
Крошки, пыль, вода и мазь,
Одним словом, это …
// 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