Использование стандартных процедур и функций для работы со строками

@seva0812 · Регистрация: 19.02.2011

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

Вычеркните из заданного слова все буквы, совпадающие с его поледней буквой
помогите плизмииииииии заранеее спасибо огромное от души

@SpartakusMd · 15.06.2011, 21:58

Pascal

Program Stroka;
var s:string;
    i:byte;
    c:char;
begin
    s := 'Tvoia stroka';
    writeln('Do: ', s);
    c := s[length(s)];
    for i:=length(s) downto 1 do
        if s[i]=c then delete(s, i, 1);
    writeln('Posle: ', s);
end.

@seva0812 · 15.06.2011, 22:17 **[ТС]**

Спасибо тебе большое отдуши благодарен тебе!

@SpartakusMd · 15.06.2011, 22:53

Рад помочь!

@seva0812 0 / 0 / 0 Регистрация: 19.02.2011 Сообщений: 12
		1
	Использование стандартных процедур и функций для работы со строками 15.06.2011, 21:35. Показов 1092. Ответов 3 Метки нет (Все метки) Вычеркните из заданного слова все буквы, совпадающие с его поледней буквой помогите плизмииииииии заранеее спасибо огромное от души 0

@seva0812 0 / 0 / 0 Регистрация: 19.02.2011 Сообщений: 12
	15.06.2011, 22:17 [ТС]	3
	Спасибо тебе большое отдуши благодарен тебе! 0

@SpartakusMd 22 / 22 / 9 Регистрация: 29.03.2010 Сообщений: 173
	15.06.2011, 22:53	4
	Рад помочь! 0

Опции темы