Цитата:
Сообщение от veronishka888
написать программу,подсчитывающую в исходной строке количество слов, явл-ся целыми десятичными числами.
например
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.