Создать функцию, которая у каждой строки из введенного набора удаляет все символы, совпадающие с первым

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

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

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

@SergioO · 07.03.2016, 10:00

Сообщение от EdinDzeko

DelFirst(const S:string):string

это что? Паскаль?

@bormant · 07.03.2016, 22:43

Pascal

function DelFirst(s: String): String;
var j: Integer;
begin
  for j:=Length(s) downto 1 do if s[1]=s[j] then Delete(s,j,1); DelFirst:=s;
end;
var s: String;
begin
  ReadLn(s);
  while s<>'' do begin
    WriteLn(DelFirst(s));
    ReadLn(s);
  end;
end.

Добавлено через 7 минут
Если прототип обязательно должен быть точно как в условии, то чуть сложнее:

Pascal

function DelFirst(const s: String): String;
var
  p: String;
  j: Integer;
begin
  p:=s; for j:=Length(s) downto 1 do if p[1]=p[j] then Delete(p,j,1); DelFirst:=p;
end;

Добавлено через 17 минут
SergioO,
да, Паскаль.

Добавлено через 4 минуты
Или

Pascal

function DelFirst(const s: String): String;
var
  p: String;
  j: Integer;
begin
  p:=''; for j:=2 to Length(s) do if s[1]<>s[j] then p:=p+s[j]; DelFirst:=p;
end;

@EdinDzeko · 08.03.2016, 11:00 **[ТС]**

да да Паскаль, перепутал раздел

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

@SergioO 260 / 208 / 99 Регистрация: 13.12.2015 Сообщений: 1,098
	07.03.2016, 10:00	2
	Сообщение от EdinDzeko DelFirst(const S:string):string это что? Паскаль? 0

@EdinDzeko -25 / 0 / 0 Регистрация: 23.10.2014 Сообщений: 99
	08.03.2016, 11:00 [ТС]	4
	да да Паскаль, перепутал раздел 0

Опции темы

Создать функцию, которая у каждой строки из введенного набора удаляет все символы, совпадающие с первым

Решение