напишите программу удаляющая из текста все буквы совпадающие с его последней буквой. Created by kirane. informatika-ru

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

yasadc 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.

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

1 votes Thanks 1

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

kirane аа получилось))))

Segrif А у меня выход за границы массива, т.к. n не меняется, ну да ладно.

kirane у меня все подошло)))

Segrif 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.

1 votes Thanks 1

kirane тоже спасибо)))

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

kirane спасибо))))

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

kirane обычный

Segrif Ясно

Answers & Comments

reshite i obyasnite pozhalujsta kak reshayutsya takie zadachihozyajka sobrala 18 kg ka

reshite pozhalujstaaaaaaa najdite proizvodnuyu

koren iz raznosti kornya iz 5 i kornya iz 3

pliiizlyudi reshitenapishite programmu opredelyayushuyu kakaya iz bukv pervaya ili

napisat programmu kotoraya zaprashivaet vozrast muzhchiny i soobshaet skolko let em

sdelat polnyj sintaksicheskij razbor predlozheniya ya pohvalil devochku zaa to chto

postroit harakternye intervaly v tonalnosti fis dur

pomogite pozhalujstavychislite summu chetnyh elementov odnomernogo massiva do 1

рекомендуемые вопросы

Helpful Links

Helpful Social