Question

Дана строка символов содержащая символы вывести все цифры строки. ПАСКАЛЬ

Answer 1

См. файл во вложении

Answer 2

VAR
A:STRING;
n,i:integer;
begin
readln(a);
    for i:=1 to length(a) do
       if (a[i]>='0')and(a[i]<='9')then
          write(a[i]);
end.

Answer 3

Строка "ПАСКАЛЬ" не содержит цифр, поэтому нельзя вывести все цифры строки.