Помогите с решением, пожалуйста!! на завтра уже нужно((
Задание №3. Строковые переменные
Из заданного текста выбрать и напечатать те символы, которые встречаются в нём ровно один раз.
var i,j:integer; s:string;
begin
read(s);
writeln;
for i:=1 to length(s) do
begin
for j:=0 to i-1 do
if (s[i]<>s[j]) or (s[i]= ) then for j:=i+1 to length(s) do if (s[i]<>s[j]) or (s[i]= ) then write(s[i], );
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
