Дана строка символов содержащая символы вывести все цифры строки. паскаль

dghfgjuf dghfgjuf    3   09.06.2019 08:40    0

Ответы
клим512 клим512  08.07.2020 07:15
См. файл во вложении
ПОКАЗАТЬ ОТВЕТЫ
Яся00000 Яся00000  08.07.2020 07:15
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика