Question

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

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

ага , сейчас проверю

Answer 3

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.

Answer 4

оо, у тебя не удаляет, я незнаю какой точно переписывать

Answer 5

А, у вас обычный или .net? Если обычный, то лучше другой вариант.

Answer 6

обычный