Технический форум - Нужен совет по доработке программы в Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Нужен совет по доработке программы в Паскаль

Помогите разрешить задание...
Заменить в строке все числа на пробелы. Вычислить количество замен.
Проблема в том что программа считает общее количество замен(и цифр и букв), а мне нужно чтоб она считала количество замен ТОЛЬКО ЧИСЕЛ!
Я не понимаю как сделать это...(tehno015
Вот код:
program n;
var
s: string;
i: integer;
begin
Writeln ('Vvedite chisla ');
readln (s);
for i:=1 to length (s) do
if s[i] in ['0'..'9'] then
s[i]:=' ';
writeln (s);
writeln ('Kolichestvo zamen',i);
readln;
end.

Цитата:

Сообщение от Arator (Сообщение 735252)

Я не понимаю как сделать это...

Да у Вас почти всё правильно, кроме вот чего: Вы гоните цикл по i от 1 до длины строки, а в конце выводите это самое i. Естественно, длину строки и получаете. Вот исправленный код:

Код:

var

 s:string;

 i,n:integer;

begin

 Writeln ('Vvedite stroku ');

 readln(s);

 n:=0;

 for i:=1 to length(s) do

  if s[i] in ['0'..'9'] then

   begin

    n:=n+1;

    s[i]:=' ';

   end;

 writeln(s);

 writeln('Kolichestvo zamen ',n);

 readln;

end.

Спасибооооооо))))