В строке исключить все повторяющиеся символы, а цифры заменить нулями.

@roland123 · Регистрация: 07.02.2012

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

@Pahanuch · 26.06.2012, 13:54

Pascal

program pr;
uses crt;
var
  s: string;
  i: integer;
  t: set of char;
 
begin
  Writeln('Введите набор символов: ');
  Readln(s);
  t:= [];
  i:= Length(s);
  SetLength(s,0);
  for i:=1 to i do begin
    if not (s[i] in t) then begin
      t:= t+[s[i]];
      if s[i] in ['0'..'9'] then s[i]:='0';
      s:= s+s[i]
    end
  end;
  Writeln(s);
  Readln;
end.

@roland123 40 / 40 / 0 Регистрация: 07.02.2012 Сообщений: 63
		1
	В строке исключить все повторяющиеся символы, а цифры заменить нулями. 26.06.2012, 11:07. Показов 1525. Ответов 1 Метки нет (Все метки) В строке исключить все повторяющиеся символы, а цифры заменить нулями. 1

	26.06.2012, 13:54

В строке исключить все повторяющиеся символы, а цифры заменить нулями.

Решение