Напишите программу удаляющая из текста все буквы совпадающие с его последней буквой
Напишите программу удаляющая из текста все буквы совпадающие с его последней буквой
Гость
Ответ(ы) на вопрос:
Гость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.
Эта программа рассчитана на то, что удаляется и последний символ тоже
Гостьvar s:string; i:integer;
begin
read(s);
i:=1;
while i
Не нашли ответ?
Похожие вопросы