Написать программу, вычеркивающую из данного текста все буквы "л".

@spider12345 · Регистрация: 24.03.2010

Решите Пожалуйста !!

@STRATEG · 27.03.2010, 19:52

Пройдись циклом по всей строке и сравнивай ))

Pascal

program NoL;
Var temp,txt,Newtxt:string;i:integer;
BEGIN
writeln('Vvedite Stroky');
readln(txt);
for i:=1 to length(txt) do
begin
 temp:=copy(txt,i,1);
 if temp <> '«' then Newtxt:=Newtxt+temp;
end;
writeln('New=',NewTxt);
readln;
END.

@Puporev · 27.03.2010, 21:26

Pascal

1 2	for i:=length(s) downto 1 do if s[i]='л' then delete(s,i,1);

@spider12345 5 / 5 / 1 Регистрация: 24.03.2010 Сообщений: 107
		1
	Написать программу, вычеркивающую из данного текста все буквы "л". 27.03.2010, 18:37. Показов 3612. Ответов 2 Метки нет (Все метки) Решите Пожалуйста !! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Написать программу, вычеркивающую из данного текста все буквы "л".

Решение