Задача 6 Урок 16
Primary tabs
Пользователь вводит строку произвольных символов, выделите из неё массив первых 8 строковых литералов, которые являются числами. И выведите эти числа на экран.
Например, из строки:rew2@#$$#435tr353453t4er4должны быть выделены подстроки:
2 435 353453 4 4Подсказка: массив должен быть "of string".
program U16Z6; var a: array [1..8] of string; s: string; i,j: integer; begin writeln('vvedite stroku s'); readln(s); j:=1; a[j]:=''; for i:=1 to length(s) do begin if (s[i]>='0') and (s[i]<='9') then a[j]:=a[j]+s[i] else if (a[j]<>'') then begin writeln(a[j]); if (j=8) then break; j:=j+1; end; end; readln(); end.
- Log in to post comments
- 662 reads
vedro-compota
Wed, 09/29/2021 - 19:40
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)