Задача №26
Удалитьиз текста все буквы «о».
uses crt-
var word1,word:String-
dl,n:integer-
label 1-
begin
— — — — — clrscr-
— writeln(‘Введите текст’)-
— readln(word1)-
— writeln(‘Введитебукву, которую надо удалить’)-
— readln(word)-
dl:=length(word1)-
n:=pos(word,word1)-
1:if n>-0 then
begin
Delete(word1,n,1)-
insert(‘ ‘,word1,n)-
dl:=length(word1)-
if dl>-0 then
begin
n:=pos(word,word1)-
goto 1-
end
end-
writeln(word1)-
end.
Категория: Строки |
Дата: 14.01.13
|