Правила форума
Прочтите прежде чем задавать вопрос!
С помощью процедуры и функции.
Есть решение с помощью процедуры (и то есть косяк
, см. прог-у), а как с помощью функции? Код
program test;
uses crt;
var
s:string; c:char;
procedure myproc (s:string);
begin
{Как записать?} if c in '1'..'9' (char=(1 ..9))
var
s1:string;
i,n:integer;
begin
writeln ('Введи строку:');
readln (s);
for m:=1 to lengtstr (s) do
begin
c:=s[i];
if (c in cfr) then
i:=i+1
m:=m+1;
end;
writeln ('Количество цифр:',i);
end.
uses crt;
var
s:string; c:char;
procedure myproc (s:string);
begin
{Как записать?} if c in '1'..'9' (char=(1 ..9))
var
s1:string;
i,n:integer;
begin
writeln ('Введи строку:');
readln (s);
for m:=1 to lengtstr (s) do
begin
c:=s[i];
if (c in cfr) then
i:=i+1
m:=m+1;
end;
writeln ('Количество цифр:',i);
end.
Добрик 
