Урок 17 Задача 04
Primary tabs
Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.
Подсказка: массив должен быть "of char".
Решение:
program u17z04; var s:string; i,j,k,n:integer; c: array [1..8] of char; begin writeln('vvedite stroku:'); readln(s); n:=8; k:=0; for i:=1 to 8 do begin for j:=k to length(s) do begin if (s[j]>='0')and(s[j]<='9') then begin c[i]:=s[j]; k:=j+1; break; end; end; write(c[i],'|'); end; readln(); end.
Консоль:
vvedite stroku: pr1ve+m1r123po4emu22<23 1|1|1|2|3|4|2|2|
- Log in to post comments
- 373 reads