Дана непустая последовательность слов из строчных букв; между соседними словами - запятая, за последним словом - точка. напечатать в алфавитном порядке все согласные буквы, которые входят только в одно слово.
проверьте моё решение и исправьте что не так,
var s,s1: string; st2,st3,st1,st: set of char; n,i: byte;
begin
readln(s);
n: =length(s);
st: =['б','в'];
i: =1;
while i< =n do begin
while (s[i]< > ',') or (s[i]< > '.') do begin
if s[i] in st1 then n: =n else
if (s[i] in st) then st1: =st1+[s[i]];
inc(i); if i=n then break;
end;
i: =i+1;
while (s[i]< > ',') or (s[i]< > '.') do begin
if s[i] in st1 then n: =n else
if (s[i] in st) then st2: =st2+[s[i]];
inc(i); if i=n then break
end;
st3: =st1*st2;
st1: =st1-st3; st2: =st2-st3; st1: =st1+st2;
end;
for i: =1 to n do
if s[i] in st1 then n: =n else write(s[i],' ');
end.

Между измерениями существуют интервалы, длительность которых определяется частотой дискретизации. Чем больше частота дискретизации, тем меньше интервал, тем точнее повторится форма исходного сигнала. То есть частота дискретизации определяет допустимый частотный диапазон входного сигнала. По теореме Котельникова она должна быть в два раза выше максимальной частоты измеряемого сигнала. Вот откуда взялась частота дискретизации 44 кГц. Это удвоенная частота слышимого человеком звука, теоретически.

Посмотрим еще раз на рисунок. Есть что-то неправильное. Ведь сигнал от одного замера до другого может измениться несколько раз, а это значит, что частота дискретизации выбрана гораздо ниже необходимой и в результате сигнал оцифруется с большими искажениями. Сигнал с необходимой частотой дискретизации будет выглядеть, как показано на следующем рисунке. Как видим, в этом случае разницей в замерах действительно можно пренебречь.

Объяснение:

//Pascal ABC.NET Версия 2.2 Сборка 790
var s,d:string;
n,i,j:integer;
begin;
readln(n);
readln(d);
i:=1;
for j:=1 to n-1 do
i*=10;
j:=i;
while i*10<>j do
begin;
inc(j);
s:=inttostr(j);
if pos(d,s)=0 then write(s:5);
end;
end.

Пример ввода:
2
1
Пример вывода:
20   22   23   24   25   26   27   28   29   30   32   33   34   35   36   37   38   39   40   42   43   44   45   46   47   48   49   50   52   53   54   55   56   57   58   59   60   62   63   64   65   66   67   68   69   70   72   73   74   75   76   77   78   79   80   82   83   84   85   86   87   88   89   90   92   93   94   95   96   97   98   99