Помогите с решением, пожалуйста!! на завтра теснее необходимо((Задание 3. Строковые переменные Из

Помогите с решением, пожалуйста!! на завтра теснее необходимо((

Задание 3. Строковые переменные

Из данного текста избрать и напечатать те символы, которые встречаются в нём ровно один раз.

Задать свой вопрос
1 ответ

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]lt;gt;s[j]) or (s[i]=' ') then for j:=i+1 to length(s) do if (s[i]lt;gt;s[j]) or (s[i]=' ') then write(s[i],' ');

end;

end. 

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт