Question

PASCAL ABC
Дана строка, состоящая из любых символов. Составить наибольшее число из цифр,входящих в строку, вывести полученное число на экран.
Пример входного файла:
Sfg3jklTe2P5xc4vjo
Пример выходного файла:
5432​

Answer 1

Ответ:

Попробуй эту программу, но я точно не уверена, что правильно поняла твое задание:

Var s,s1,s2:string;

   max,i,j,k:byte;

Begin

   write('Введите строку: ');readln(s);

   max:=0;s2:='';s:=s+' ';

   For i:=1 to Length(s) do

    Begin

     if not (s[i] in [' ',',','-',':',';']) then s1:=s1+s[i]

      else  

       Begin

        k:=0;

        For j:=1 to Length(s1) do

         if s1[j] in ['0'..'9'] then inc(k);

        if k>max then  

         Begin  

          max:=k;

          s2:=s1;

         End;

        writeln('В слове "',s1,'" цифр: ',k);

        s1:='';

       End;

    End;

   if max>0 then writeln('Слово содержащее наибольшее кол-во цифр: "',s2,'" в нём цифр: ',max)

    else writeln('Нету слов с цифрами');

End.

3754614fdc2c4bd66ee63e6d7692f0d5.pas