IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> Выделение троичного чила кратного 3, Pascal
сообщение
Сообщение #21


Гость






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

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"

КАКОЕ из чисел ты должен вывести? rolleyes.gif Автор молчит по этому поводу... Некорректно поставленное задание? Почему ты ЕГО не спросил, а спросил меня о моей программе?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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

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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #23


Гость






Цитата
Или я условие не правильно понял ?
И это присутствует... Я только что заметил... Читаем заголовок:
Цитата
Выделение троичного чила кратного 3
, то есть из приведенных мной ни одно число не должно напечататься smile.gif

Добавь проверку на кратность...
 К началу страницы 
+ Ответить 

2 страниц V < 1 2
 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.11.2020 9:57
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name