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

Question

Информатика

Эмилий

28 августа, 01:29

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

+4

Ответы (2)

Знаете ответ?

Ольга · Answer 1

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.

Толюся · Answer 2

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.

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