Цитата:
Сообщение от Agressya
Задача №1. Из заданного текста или предложения выбрать и напечатать только те символы, которые встречаются в нем один раз (в том порядке в котором они встречаются в тексте или предложении.
|
Код:
Var
S:String;
W:Set of Char;
C:Char;
i,j:Byte;
Begin
Writeln('Enter the string:');
Readln(S);
W:=[];
For i:=1 to Length(S)-1 do
begin
C:=S[i];
for j:=i+1 to Length(S) do
if (S[j]=C) and Not(S[j] in W) then W:=W+[S[j]];
end;
For i:=1 to Length(S) do
if Not(S[i] in W) then Write(S[i]+' ');
Readln
End.
А вторую тоже срочно и тоже нужно? Черт, терпеть не могу с кириллицей возиться... Но в любом случае - ближе к вечеру.