Var
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=Length(s) downto 1 do
if Pos(s[i],'ABCDabcd')>0 then Delete(s,i,1);
Writeln('Результат: ',s)
end.
Пример
Введите строку: Carlsbad is an affluent seaside resort city
Результат: rls is n ffluent sesie resort ity
Уважаемые господа,
Настоящим сообщаем, что ввиду обстоятельств
непреодолимой силы (из-за сильного шторма), порт... временно закрыт и мы
не сможем поставить ваше судно под разгрузку.
Мы будем вам очень признательны, если вы задержите отгрузку
оборудования до нашего уведомления о прекращении форсмажорных
обстоятельств.
Надеемся, что эта кратковременная задержка не скажется отрицательно на графике поставок.
Во - первых рассмотрим простые высказывания:
М - Монитор неисправен
В - Видеокарта неисправна
О - Оперативная память неисправна
Во вторых: Запишем на языке алгебры логики возможные предположения: (M v B) --> O и M --> B
<span><span>Пусть </span><span>F</span><span>(М,В,О) = </span>(M v B) --> O и M --> B</span>
составляем таблицу истинности:
М В О M --> B
<span>0 0 0 1 </span>
<span>1 0 1 1</span>
<span> 0 0 0 1</span>
<span> 1 1 1 0 </span>
<span>0 0 0 1</span>
<span> 0 1 1 0</span>
<span> 1 1 0 0</span>
<span> 1 1 1 1</span>
<span> 1 0 0 0 </span>
<span>1 0 0 0</span>
<span> 0 1 1 1</span>
<span> 1 1 0 1</span>
<span> 0 1 1 0 </span>
<span>1 1 1 1</span>
<span>0 0 1 0 </span>
<span>1 1 0 1</span>
<span> 1 1 0 1</span>
<span> 1 0 1 1 </span>
Анализ таблицы показывает, что сложное высказывание истинно во всех случаях, когда М – истинно, т.е. вероятнее всего неисправен именно монитор.
===== PascalABC.NET =====
begin
var a := MatrRandom(6, 6, -20, 20);
a.Println(4);
a.ElementsByRow
.GroupBy(p -> p)
.Where(p -> p.Count > 1)
.MaxBy(p-> p.Key)
.Distinct
.Println
end.