задача 5 урок 17

задача 5 урок 17

Пользователь вводит строку символов, в которой есть два числа, разделенные другими символами, т.е. строка имеет вид:

какиетосимволыЧИСЛО1какиетосимволыЧИСЛО2какиетосимволы
необходимо считать данные числа в две строковые переменные s1 и s2.

например:

для:

wsefg34teth567gfd

получим s1='34' и s2='567'

для:

wsefg22teth88

получим s1='22' и s2='88'

для:

15teth47

получим s1='15' и s2='47'

РЕШЕНИЕ

program task_5_lesson_17;
var
   s, s1, s2: string;
   i, n: integer;
begin
   readln(s);
   n := 1; // первая строка из чисел
   s1 := '';
   s2 := '';
   for i := 1 to length(s) do
    if (s[i] >= '0') and (s[i] <= '9') then
      begin
        if (n = 1) then
          s1 := s1 + s[i]
        else
          s2 := s2 + s[i];
      end
    else
      begin
        if ((s[i - 1] >= '0') and (s[i - 1] <= '9')) then
          n := 2;  // переключаемся на вторую строку
      end;
    write('s1 = ',s1, ' and ',' s2 = ', s2);
    readln
end.

КОНСОЛЬ

yuyuy6667pppooi9991
s1 = 6667 and  s2 = 9991