Задача 5 Урок 17
Primary tabs
Пользователь вводит строку символов, в которой есть два числа,
разделенные другими символами, т.е. строка имеет вид:
какиетосимволыЧИСЛО1какиетосимволыЧИСЛО2какиетосимволы
необходимо считать данные числа в две строковые переменные s1 и s2.например:
для:
wsefg34teth567gfd
получим s1='34' и s2='567'для:
wsefg22teth88
получим s1='22' и s2='88'для:
15teth47
получим s1='15' и s2='47'
var s, s1, s2: string; i: integer; b{флаг первой строки}: boolean; begin writeln('Введите строку'); readln(s); //s := 'gvedf8934535ebdf06338bdb'; s1 := ''; s2 := ''; b := true; for i := 1 to length(s) do begin if (s[i] >= '0') and (s[i] <= '9') and b then begin s1 := s1 + s[i]; end else if (s1 <> '') and b then b := false else if (s[i] >= '0') and (s[i] <= '9') and not b then begin s2 := s2 + s[i]; end end; writeln(s1); writeln(s2); readln(); end.
КОНСОЛЬ
Введите строку rgersdfg34bdgbsdfbsd564gdhrtsdghnb 34 564
- Log in to post comments
- 492 reads