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

Question

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

Answer 1

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

---

Скачать вложение Текст (TXT)

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<br>          write(a[i]);
end.