Ввести два слова. Определить, состоят ли они из одного и того же набора символов или нет.
var s, s2 : String; Check : Boolean; i : Integer;begin Write('Введите первое слово: '); ReadLn(s);
Write('Введите второе слово: '); ReadLn(s2); if Length(s) <> Length(s2) then begin Writeln('No'); exit; end; Check := True; for i := 1 to Length(s) do if pos(s[i], s2) <> 0 then Delete(s, pos(s[i], s2), 1) else Check := False; If Check then Writeln('Yes') else Writeln('No'); Readln;end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
s, s2 : String;
Check : Boolean;
i : Integer;
begin
Write('Введите первое слово: ');
ReadLn(s);
Write('Введите второе слово: ');
ReadLn(s2);
if Length(s) <> Length(s2) then
begin
Writeln('No');
exit;
end;
Check := True;
for i := 1 to Length(s) do
if pos(s[i], s2) <> 0 then
Delete(s, pos(s[i], s2), 1)
else Check := False;
If Check then
Writeln('Yes')
else
Writeln('No');
Readln;
end.