Урок 17. Задача 6.
Primary tabs
Пользователь вводит строку произвольных символов, выделите из неё массив первых 8 строковых литералов, которые являются числами. И выведите эти числа на экран.
Например, из строки: 'rew2@#$$#435tr353453t4er4'
должны быть выделены подстроки:2 435 353453 4 4
var s :string; i :integer; fl :boolean; function issdigit(s :string) :boolean; begin if (s >= '0') and (s <= '9') then fl := true else fl := false; issdigit := fl; end; begin s := 'rew2@#$$#435tr353453t4er4'; for i := 1 to length(s) do begin if issdigit(s[i]) then begin write(s[i]); if not issdigit(s[i + 1]) then writeln(); end; end; end.
- Log in to post comments
- 696 reads
vedro-compota
Thu, 09/08/2022 - 19:30
Permalink
нужно выделить первые 8
нужно выделить первые 8 литералов подходящего типа
_____________
матфак вгу и остальная классика =)
Dennis80
Sat, 09/10/2022 - 20:27
Permalink
type ar = array[1..8] of
vedro-compota
Sun, 09/11/2022 - 15:13
Permalink
переписать без использования
переписать без использования логической переменно fl_2
_____________
матфак вгу и остальная классика =)
Dennis80
Wed, 09/14/2022 - 18:27
Permalink
type ar = array[1..8] of
vedro-compota
Wed, 09/14/2022 - 19:37
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)