с информатикой. с 8 задания​

1.Сымсыз технология ақпараттар технологияның негізі.Негізгі қызметі бір н/е бірнеше нүктелер арасындағы қашықтыққа сымсыз ақпарат тасымалдау болып табылады.

2.Технологияға байланысты сымсыз желіні үш түрге бөлуге болады:

- жергілікті есептеуіш желі;

- кенейтілген жергілікті есептеуіш желі;

- мобильді желі (тасмалданатын компьютер).

3.Wi Fi – ағылшын тілінен аударғанда «сымсыз нүкте» деген ұғымды білдіреді. Ол – белгілі нысандарда (ертеде салынған тарихи ғимарат болуы мүмкін) кабельді жүйені тарту мүмкін болмаған жағдайда немесе экономикалық жағынан тиімсіз болғанда орнатылатын қондырғы. Ұялы телефондарға қарағанда, ол әлемнің барлық елдерінде бірдей жұмыс істейді. Қазіргі уақытта ғаламторға кабельсіз ену нүктесі көптеген мекеме-ұйымдарда қолданысқа енгізілген.

4.Bluetooth - мобильді телефондар, компьютерлер және перифериялық құрылғылар сияқты қысқа қашықтықтағы деректерді немесе дауысты сымсыз жіберуге мүмкіндік беретін қысқа ауқымды сымсыз байланыс технологиясы . Bluetooth-дың мақсаты - әдетте құрылғылармен байланыстыратын кабельдерді алмастыру, ал олардың арасындағы қарым-қатынастарды қауіпсіз ету.

5.WiMAX технологиясы, сымсыз байланысты қоныстанған ауданның түгелдей аймағына орната алады. Сонымен қатар жаңа қосылыстарға шығынды азайтады. Бүгінгі таңда, бір объектінің қосылуына бірнеше айлар кетсе, WiMAX – тың арқасында, бұл процесс бірнеше сағат немесе күнге дейін қысқарады.

Общее решение, позволяющее удалять из строк любой "мусор"

// PascalABC.Net 3.0, сборка 1066
procedure CheckString(var s:string; var n:integer);
var
  i:integer;
begin
  i:=Length(s);
  while i>0 do begin
    if not(s[i] in ['a'..'z']) then Delete(s,i,1);
    Dec(i)
  end;
  n:=Length(s)
end;

var
  s1,s2:string;
  i,p,n1,n2:integer;
begin
  Write('Введите первую строку: '); Readln(s1);
  CheckString(s1,n1);
  if n1=0 then Writeln('Введенная строка не содержит допустимых символов')
  else begin
    Write('Введите вторую строку: '); Readln(s2);
    CheckString(s2,n2);
    if n2=0 then Writeln('Введенная строка не содержит допустимых символов')
    else
      { теперь обе строки содержат только маленькие латинские буквы }
      if n1=n2 then begin
        for i:=1 to n1 do begin
          p:=Pos(s1[i],s2);
          if p=0 then Break
          else Delete(s2,p,1)
          end;
        if Length(s2)=0 then Writeln('Решение имеется')
        else Writeln('Решения нет')
        end
      else
        Writeln('Решения нет');
    end
end.

Тестовое решение:
Введите первую строку: this is my own deal!
Введите вторую строку: Тест: *is  now=l2ead  my   sthi?
Решение имеется

Также имеется современное решение, которому пока что в школах не учат:
// PascalABC.Net 3.0, сборка 1066
begin
  var s1:=ReadString('Введите первую строку: ').Where(x->x in ['a'..'z']);
  if s1.Count=0 then
    Writeln('Введенная строка не содержит допустимых символов')
  else begin
    var s2:=ReadString('Введите вторую строку: ').Where(x->x in ['a'..'z']);
    if s2.Count=0 then
      Writeln('Введенная строка не содержит допустимых символов')
    else
      if s1.Except(s2).Count>0 then Writeln('Решения нет')
      else Writeln('Решение имеется')
    end
end.