Урок 17. Задача 5.
Primary tabs
Пользователь вводит строку символов, в которой есть два числа, разделенные другими символами, т.е. строка имеет вид:
"какиетосимволыЧИСЛО1какиетосимволыЧИСЛО2какиетосимволы"
необходимо считать данные числа в две строковые переменные s1 и s2.
var s, s1, s2 :string; i, n, j :integer; fl, fl_2 :boolean; function issdigit(s :string) :boolean; begin if (s >= '0') and (s <= '9') then fl := true else fl := false; issdigit := fl; end; begin s := 'Lo5437um768mp'; n := 1; s1 := ''; s2 := ''; for i := 1 to length(s) do begin fl := issdigit(s[i]); if fl then begin fl_2 := issdigit(s[i - 1]); if not fl_2 then n := n + 1; end; if issdigit(s[i]) then begin if (n mod 2 = 0) then s1 := s1 + s[i] else s2 := s2 + s[i]; end; end; for i := 1 to length(s1) do begin writeln(s1[i]); end; end.
- Log in to post comments
- 482 reads