Меню сайта

Задача №29

Удалитьиз текста все цифры.

uses crt-

vardl,ch,n,i:integer-

text,text1,c:string-

label 1-

begin

clrscr-

writeln(‘Введите текст’)-

readln(text)-

dl:=length(text)-

text1:=’0123456789′-

for i:=1 to 10 do

begin

c:=copy(text1,i,1)-

n:=pos(c,text)-

1:if n&gt-0 then

begin

Delete(text,n,1)-

insert(‘ ‘,text,n)-

dl:=length(text)-

if dl&gt-0 then

begin

n:=pos(c,text)-

goto 1-

end

end-

end-

writeln(text)-

end.

Категория: Строки | Дата: 13.01.13

Меню раздела
Блок