Помогите плиз ктото с задачкой на ПАСКАЛЬ!! ! В строке определить количество цифр в строке. И удалить их все.

Question

Alexey К******* · Accepted Answer

var 
 s: string; 
 c, n, d: integer; 
begin 
 write('строка? '); 
 readln(s); 
 for c := 1 to length(s) do 
 if not (s[c] in ['0'..'9']) then begin 
 inc(n); 
 s[n] := s[c]; 
 end; 
 d := length(s) - n; 
 writeln('количество цифр: ', d); 
 delete(s, n + 1, d); 
 writeln('измененная строка: ', s); 
end.

Медер Эшалиев · Answer

n:=0; 
for i:=1 to length(s) do 
 begin 
 if (ord(s)>=48) and (ord(s)<=57) then //ascii индексы 
 begin 
 n:=n+1; 
 delete(s, i, 1); 
 end; 
 end;

Лена Егорова · Answer

функция pos и del в помощь