Цитата:
Сообщение от Arator
Я не понимаю как сделать это...
|
Да у Вас почти всё правильно, кроме вот чего: Вы гоните цикл по 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.