Напечатать те слова последовательности, которые отличны от последнего слова,
предварительно преобразовав каждое из них по следующему правилу:
- оставить в слове только первые вхождения каждой буквы.
Код:
Код
program q;
var
s: string;
i: integer;
m: set of char;
function posl(x: string): string;
begin
while (pos(' ', x) > 0) do
begin
Delete(x, 1, pos(' ', x));
end;
Delete(x, pos('.', x), 1);
posl := x;
end;
begin
readln(s);
while pos(' ', s) > 0 do
begin
m := [];
if (copy(s, 1, pos(' ', s) - 1) <> posl(s)) and (pos(' ', s) > 1) then
for i := 1 to pos(' ', s) do
begin
if not (s[i] in m) then
Write(s[i]);
include(m, s[i]);
end;
Delete(s, 1, pos(' ', s));
end;
end.
var
s: string;
i: integer;
m: set of char;
function posl(x: string): string;
begin
while (pos(' ', x) > 0) do
begin
Delete(x, 1, pos(' ', x));
end;
Delete(x, pos('.', x), 1);
posl := x;
end;
begin
readln(s);
while pos(' ', s) > 0 do
begin
m := [];
if (copy(s, 1, pos(' ', s) - 1) <> posl(s)) and (pos(' ', s) > 1) then
for i := 1 to pos(' ', s) do
begin
if not (s[i] in m) then
Write(s[i]);
include(m, s[i]);
end;
Delete(s, 1, pos(' ', s));
end;
end.
Переделайте,пожалуйста код,чтобы в нём отсутствовали функции
.