Найти строку, в которой удалены все символы, совпадающие с первым

@EdinDzeko · Регистрация: 23.10.2014

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

Разработать функцию DelFirst(const S:string):string, возвращающую строку, в которой удалены все символы, совпадающие с первым в строке S (также и первый символ). С помощью данной функции у каждой строки из введенного набора удалить все символы, совпадающие с первым.

@Joy · 26.11.2014, 09:06

Pascal

function DelFirst(const s:string):string;  
begin
  var s1:string:=s;
  while pos(s[1],s1)>0 do delete(s1,pos(s[1],s1),1);
  Result:=s1;
end;
begin
  var l:=new list<string>;
  writeln('Введите набор из 5 предложений:');
  for i:integer:=1 to 5 do l.Add(delfirst(readstring()));
  foreach s:string in l do writeln(s);
end.

Добавлено через 15 минут
функцию можно так:

Pascal

function DelFirst(const s:string):string;  
begin
  Result:='';
  foreach x:char in s do if x<>s[1] then Result:=Result+x;
end;

@EdinDzeko -25 / 0 / 0 Регистрация: 23.10.2014 Сообщений: 99
		1
	Найти строку, в которой удалены все символы, совпадающие с первым 25.11.2014, 20:11. Показов 1509. Ответов 1 Метки нет (Все метки) Разработать функцию DelFirst(const S:string):string, возвращающую строку, в которой удалены все символы, совпадающие с первым в строке S (также и первый символ). С помощью данной функции у каждой строки из введенного набора удалить все символы, совпадающие с первым. 0

	26.11.2014, 09:06

Опции темы

Найти строку, в которой удалены все символы, совпадающие с первым

Решение