Регистрация
Кравченко123
18.11.2022 15:49
Информатика
Есть ответ 👍

В комп. программах не силен

115
218
Посмотреть ответы 1

Ответы на вопрос:

aspier2016
aspier2016
4,8(100 оценок)
// 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

Популярно: Информатика