Задача 6 Урок 17
Primary tabs
Пользователь вводит строку произвольных символов, выделите из неё массив первых 8 строковых литералов, которые являются числами. И выведите эти числа на экран.
program u17z6; type Arr = array[1..8] of string; var s: string; i,n: integer; q: boolean; a: Arr; begin writeln('vvedite stroku:'); readln(s); q:=false; n:=0; for i:=1 to length(s) do begin if (s[i]>='0')and(s[i]<='9') then begin if (not q) then n:=n+1; q:=true; a[n]:=a[n]+s[i]; end else begin if (q) then q:=false; end; end; for i:=1 to n do writeln(a[i]); readln; end.
- Log in to post comments
- 315 reads