Задача 4 Урок 17
Primary tabs
Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.
Подсказка: массив должен быть "of char".
var i,k:integer; s:string; a:array [1..10] of char; begin readln(s); k:=0; for i:=1 to Length(s) do begin if (s[i]>='0')and(s[i]<='9') then begin inc(k); a[k]:=s[i]; end; end; for i:=low(a) to k do write(a[i]); readln(); end.
- Log in to post comments
- 307 reads