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

Question

Информатика

Германыч

11 ноября, 17:58

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

+1

Ответы (2)

Знаете ответ на вопрос?

Михайлыч · Answer 1

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.

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

Акинф · Answer 2

Var s:string; i:integer;

begin

read (s) ;

i:=1;

while i
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.