Выделение троичного чила кратного 3, Pascal Опции

[volvo]

Я же показал идею, как можно сохранить строку, подходящую под условие. Ну, что ж, если надо все разжевать - то вот так...

program T(input, output);

procedure print_number(n: integer; the_mod: integer);
begin

  if n > 0 then print_number(n div 3, n mod 3);

  if the_mod >= 0 then write(the_mod);

end;

var
  ch: char;
  flag: boolean;
  num: longint;

begin
  read(input, ch);
  while (ch <> #13) do begin


    flag := true; num := 0;

    while (ch <> #13) and (ch <> ' ') do begin
      flag := flag and (ch in ['0' .. '2']);
      num := 3 * num + (ord(ch) - ord('0'));
      read(input, ch);
    end;

    if flag and (num mod 3 = 0) then begin

      writeln;
      write('number = ');
      print_number(num, -1);
      break;

    end
    else read(input, ch);

  end;

end.

А у меня тогда встречный вопрос: а если будет введена строка
"nono 123456 yes 12012 haha 2121 bye"

КАКОЕ из чисел ты должен вывести? Автор молчит по этому поводу... Некорректно поставленное задание? Почему ты ЕГО не спросил, а спросил меня о моей программе?

[klem4]

Я понял задание так: Дана последовательность символов, если в ней есть подпоследовательности подходящие под условие, вывести их на экран...

Ответ на твой вопрос исчерпывается Вывести и первое и второе. Или я условие не правильно понял ?

[volvo]

Или я условие не правильно понял ?

И это присутствует... Я только что заметил... Читаем заголовок:

Выделение троичного чила кратного 3

, то есть из приведенных мной ни одно число не должно напечататься

Добавь проверку на кратность...