Помогите с программой. Паскаль, строки.

[veronishka888]

Помогите с программой. Паскаль, строки.

написать программу,подсчитывающую в исходной строке количество слов, явл-ся целыми десятичными числами.
например
jgkhl;g799kmbcg6557
правильный ответ 2 (799 6557)
заранее спасибо...

 

[Vladimir_S]

написать программу,подсчитывающую в исходной строке количество слов, явл-ся целыми десятичными числами.
например
jgkhl;g799kmbcg6557
правильный ответ 2 (799 6557)
заранее спасибо...

Пожалуйста:

VAR
 S:STRING;
 N,i:INTEGER;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 N:=0;
 For i:=1 to Length(S) do
  If ((i=1) and (ORD(S[i])>47) and (ORD(S[i])<58)) or
     ((i>1) and (ORD(S[i])>47) and (ORD(S[i])<58) and
     ((ORD(S[i-1])<48) or (ORD(S[i-1])>57))) then INC(N);
 WriteLn('N= ',N);
 ReadLn;
END.