Как найти количество двузначных чисел в строке

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

program sd;
 
uses
  crt;
const
  maxelem = 100;
var
  ast: array [1..maxelem] of string;
  s,sp: string;
  i,j,k,k1, code, count, n: integer;
  flag: boolean;
Begin
  count:= 0;
  readln(n);
  for i:= 1 to n do
    Readln(ast[i]);
  for i:= 1 to n do
    begin
      s:= ' ' + ast[i] + '  ';
      for j:= 2 to length(s)-1 do       { проверяем каждый символ до конца строки }
        begin
          flag:= false;
          sp:= '';
          if (s[j] in ['0'..'9']) and    { Если 1-ый проверяемый символ это цифра }
             (s[j+1]  in ['0'..'9']) and  { и 2-ой проверяемый символ это цифра }
              not (s[j+2] in ['0'..'9']) then  { и 3-ий проверяемый символ это не цифра}
             begin
               if s[j-1] = '-' then  { проверяем, есть ли перед 1-м символом символ "-"}
                 begin
                   sp:= copy(s,j-1,3);          { если они есть, то копируем 3 символа}
                   flag:= true;
                 end
               else
                 if not (s[j-1] in ['0'..'9']) then { проверяем, есть ли перед 1-м символом нет цифр}
                   begin
                     sp:= copy(s,j,2); { если их нет, то копируем 2 символа}
                     flag:= true;
                   end;
             end;
          if flag then
            begin
              val(sp,k,code);   {преобразуем скопированную строку к числовому представлению }
              if code = 0 then   { если преобразование прошло успешно то }
                begin
                  flag:= false;
                  { проверяем входит ли полученное число в заданный диапазон двузначных чисел}
                  if ((k > 9) and (k < 100) and  (k <> 0)) or ((k < -9) and (k > -100) and (k <> 0)) then
                    begin
                     { k1:= k;
                      write(k1:5);} {эти строки нужны для контроля работы программы}
                      inc(count);  { подсчитываем количество найденных чисел}
                    end;
                end;
            end;
        end;
      writeln;
    end;
  writeln(count);
  Readln;
End.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

const
  d: set of char = ['0'..'9'];
var
  i, n, k: longint;
  s: string;
begin
  readln(n);
  for n := 1 to n do
    begin
      readln(s);
      s := ' ' + s + ' ';
      for i := length(s) - 1 downto 2 do
        if not (s[i - 1] in ['0'..'9']) then
          while s[i] = '0' do
            delete(s, i, 1);
      for i := 3 to length(s) do
        if not (s[i - 3] in d) and
           (s[i - 2] in d - ['0']) and
           (s[i - 1] in d) and
           not (s[i] in d) then inc(k)
    end;
  writeln(k)
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

var
  i, n, k, p: longint;
  s: string;
begin
  readln(n);
  for n := 1 to n do
    begin
      readln(s);
      s := ' ' + s + ' ';
      for i := length(s) - 1 downto 2 do
        if not (s[i - 1] in ['0'..'9']) then
          while s[i] = '0' do
            delete(s, i, 1);
      for i := 2 to length(s) do
        if s[i] in  ['0'..'9'] then inc(p)
        else
          begin
            if p = 2 then inc(k);
            p := 0
          end
    end;
  writeln(k)
end.