Пользователь вводит строку произвольных символов, выделите из неё массив первых 8 строковых литералов, которые являются числами. И выведите эти числа на экран.
Например, из строки:
rew2@#$$#435tr353453t4er4
должны быть выделены подстроки:
2
435
353453
4
4
Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней
program pascal_string3;
var i,amt :integer;
s : string;
begin
writeln('input string : ' );
readln( s );
amt := 0;
for i := 1 to length( s ) do
begin
if( s[i] >= '0') and ( s[i] <= '9' ) then
amt+=1;
end;
writeln( 'amount digits in string : ' , amt );
end.