Урок 17 Задача 05

Урок 17 Задача 05

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

какиетосимволыЧИСЛО1какиетосимволыЧИСЛО2какиетосимволы

необходимо считать данные числа в две строковые переменные s1 и s2.
например:
для:

    wsefg34teth567gfd

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

    wsefg22teth88

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

    15teth47

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

Решение:

program u17z05;
var s,s1,s2:string;
  i:integer;
  k:boolean;
begin
  k:=true;
  writeln('vvedite stroku:');
  readln(s);
  for i:=1 to length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') then
    begin
      if k then
        s1:=s1+s[i]
      else
        s2:=s2+s[i];
    end
    else
    begin
      if (k and (s1<>'')) then
        k:=false;
    end;
  end;
  write('s1 - ',s1);
  writeln();
  write('s2 - ',s2);
  readln();
end. 

Консоль:

vvedite stroku:
sdfg123jlkjl435lkjlkj
s1 - 123
s2 - 435