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.

Answer 2

Для решения этой задачи в Pascal ABC, вам нужно выполнить следующие шаги:

1. Используйте цикл для обхода каждого символа в строке. 2. Проверьте, является ли символ цифрой. 3. Если символ является цифрой, преобразуйте его в число и добавьте к текущему наибольшему числу.

Вот пример кода, который реализует эти шаги:

begin
 var s := 'Sfg3jklTe2P5xc4vjo';
 var maxNum := 0;
 for var i := 1 to s.Length do
   if s[i].IsDigit then
     maxNum := maxNum * 10 + Ord(s[i]) - Ord('0');
 Print(maxNum);
end.

В этом коде мы используем метод `IsDigit` для проверки, является ли символ цифрой. Если это так, мы преобразуем символ в число, используя функцию `Ord`, которая возвращает код символа, а затем вычитаем код символа '0', чтобы получить значение цифры. Затем мы добавляем это число к текущему наибольшему числу, умножая его на 10 (что эквивалентно сдвигу влево на одну цифру) и добавляя новое число.

В конце мы выводим наибольшее число на экран с помощью функции `Print` .