Урок 16 (решенная задача номер 5)
Primary tabs
Урок 16 (решенная задача номер 5)
Пользователь вводит строку произвольных символов, выделите из неё массив первых 8 строковых литералов, которые являются числами. И выведите эти числа на экран.
Например, из строки:
rew2@#$$#435tr353453t4er4должны быть выделены подстроки:
2 435 353453 4 4var arr: array[1..8] of string; s : string; i, c, h : integer; begin c := 1; h := 1; writeln('vvedite stroky'); readln(s); while (h <> length(s)) do begin if (s[h] >= '0') and (s[h] <= '9') and (c <= 8) then begin while (s[h] >= '0') and (s[h] <= '9') do begin arr[c] := arr[c] + s[h]; h := h + 1; end; Inc(c); end; h := h + 1; end; for i := 1 to 8 do write(arr[i], ' '); end.
- Log in to post comments
- 1565 reads
vedro-compota
Sat, 10/10/2020 - 20:23
Permalink
Добавить оптимизацию с break
Добавить оптимизацию с break
_____________
матфак вгу и остальная классика =)
Romakip
Mon, 10/12/2020 - 15:37
Permalink
var arr: array[1..8] of