строки, Удаление цифр Опции

[Klimoff]

Вообще это программа для поиска цифр в строке и подсчёта их количества, не могли бы вы показать как её исправить что бы она удаляла все цифры в строке?

Код

Var g,x:string;
k,i:byte;
begin
writeln (‘Vvedi stroky’);
readln (x);
g:=’0,1,2,3,4,5,6,7,8,9’;
for i:=1 to length (x) do
if pos  (x[i],g)>0 then inc (k);
readln;
end.

Сколько раз нужно еще повторить - ПОЛЬЗУЕМСЯ ТЕГАМИ для оформления исходников!

Сообщение отредактировано: APAL - 26.05.2006 0:47

[volvo]

Ну, показывали же: проходить надо по строке в обратном порядке - от конца к началу...

const
  digit = '0123456789';
Var
  s: string;
  i: byte;
begin
  writeln ('Vvedi stroky');
  readln (s);
  for i := length(s) downto 1 do
    if pos(s[i], digit) > 0 then delete(s, i, 1);
  writeln(s);
  readln;
end.

[Klimoff]

Огромное спасибо!!!!!!!!!!!!!!