Общее решение, позволяющее удалять из строк любой "мусор"
// 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.
рядом с пунктом предлагаемые поисковые запросы щелкните карточка (в publisher 2010 введите карточки в поле поиска).
поиск открыток
щелкните макет открытки, например открытка с (с лиловой лентой).
примечание: при желании вы можете распечатать карточку
с (фиолетовой лентой) на карточках avery 3379, 5315, 8315 и 8317.
нажмите кнопку создать. (в publisher 2010 нажмите кнопку скачать.)
совет: вам совсем не нравится этот макет открытки? щелкните макет страницы > изменение шаблона для поиска другого макета открытки.
замените текст или рисунок шаблона, щелкнув их правой кнопкой мыши и выбрав команду удалить текст или изменить рисунок.
чтобы настроить карточку, воспользуйтесь этими параметрами на вкладке макет страницы (в publisher 2010 нажмите кнопку формат на вкладке средства
рисования ).
попробуйте новую цветовую тему.
измените шрифт;
примените фон.
после изменения шаблона нужным образом щелкните файл.
для печати выполните одно из следующих действий.
нажмите кнопку " экспорт ",
чтобы найти файл в формате pdf или другой пакет, а также параметры для профессиональной или коммерческой печати. (в publisher 2010 щелкните сохранить _амп_ отправить для профессиональной печати.)
щелкните печать, чтобы распечатать открытку на своем принтере.
// 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.
рядом с пунктом предлагаемые поисковые запросы щелкните карточка (в publisher 2010 введите карточки в поле поиска).
поиск открыток
щелкните макет открытки, например открытка с (с лиловой лентой).
примечание: при желании вы можете распечатать карточку
с (фиолетовой лентой) на карточках avery 3379, 5315, 8315 и 8317.
нажмите кнопку создать. (в publisher 2010 нажмите кнопку скачать.)
совет: вам совсем не нравится этот макет открытки? щелкните макет страницы > изменение шаблона для поиска другого макета открытки.
замените текст или рисунок шаблона, щелкнув их правой кнопкой мыши и выбрав команду удалить текст или изменить рисунок.
чтобы настроить карточку, воспользуйтесь этими параметрами на вкладке макет страницы (в publisher 2010 нажмите кнопку формат на вкладке средства
рисования ).
попробуйте новую цветовую тему.
измените шрифт;
примените фон.
после изменения шаблона нужным образом щелкните файл.
для печати выполните одно из следующих действий.
нажмите кнопку " экспорт ",
чтобы найти файл в формате pdf или другой пакет, а также параметры для профессиональной или коммерческой печати. (в publisher 2010 щелкните сохранить _амп_ отправить для профессиональной печати.)
щелкните печать, чтобы распечатать открытку на своем принтере.