Дана строка, удалить из неё все повторяющиеся буквы, оставив их первые вхождения

@CmPunk67 · Регистрация: 11.10.2010

Author24 — интернет-сервис помощи студентам

1. Дан текст имеющий вид (d1+-d2+-d3+-d3), где d[i] - цифра. Вычислить записанную в тексте алгебраическую сумму.

2. Дан текст имеющий вид (d1+-d2+-d3+-d3), где d[i] - число. Вычислить записанную в тексте алгебраическую сумму.

3. Дана строка, удалить из неё все повторяющиеся буквы, оставив их первые вхождения.

спасибо...проходим строки...)
особенно нужна третья!!

@кот Бегемот · 12.01.2011, 23:43

https://www.cyberforum.ru/pasc... 68106.html

@dubrovsky · 13.01.2011, 11:06

№3

Pascal

program stroki;
var
  s,p : string;
  d,i : longint;
BEGIN
  readln(s);
  d:=length(s);
  p:=s[1];
  for i:=2 to d do
      if pos(s[i],p)=0
      then p:=s[i]+p;
  write(p);
END.

@CmPunk67 1 / 1 / 0 Регистрация: 11.10.2010 Сообщений: 85
		1
	Дана строка, удалить из неё все повторяющиеся буквы, оставив их первые вхождения 12.01.2011, 21:40. Показов 2211. Ответов 2 Метки нет (Все метки) 1. Дан текст имеющий вид (d1+-d2+-d3+-d3), где d[i] - цифра. Вычислить записанную в тексте алгебраическую сумму. 2. Дан текст имеющий вид (d1+-d2+-d3+-d3), где d[i] - число. Вычислить записанную в тексте алгебраическую сумму. 3. Дана строка, удалить из неё все повторяющиеся буквы, оставив их первые вхождения. спасибо...проходим строки...) особенно нужна третья!! 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	12.01.2011, 23:43	2
	https://www.cyberforum.ru/pasc... 68106.html 0

	13.01.2011, 11:06

Дана строка, удалить из неё все повторяющиеся буквы, оставив их первые вхождения

Решение