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

2
решишь?
а то мне , кровь из носа, надо
На паскале?
да
АВС

Ответы и объяснения

2013-10-29T19:20:35+04:00
Uses crt;
var s:string;
n,i:integer;
begin
readln(s);
n:=length(s);
for i:=1 to n do
if s[i]=s[n] then delete(s,i,1);
writeln(s);
end.

Эта программа рассчитана на то, что удаляется и последний символ тоже

ага , сейчас проверю
аа получилось))))
А у меня выход за границы массива, т.к. n не меняется, ну да ладно.
у меня все подошло)))
  • Segrif
  • почетный грамотей
2013-10-29T19:20:44+04:00
Var s:string; i:integer;
begin
read(s);
i:=1;
while i<length(s) do
if s[i]=s[length(s)] then s:=copy(s,1,i-1)+copy(s,i+1,length(s)-i)
else i+=1;
write(s)
end.
оо, у тебя не удаляет, я незнаю какой точно переписывать
спасибо))))
А, у вас обычный или .net? Если обычный, то лучше другой вариант.
обычный
Ясно