Ответ:
Объяснение:
Пока n не чётное и n не кратно 13
n прибавить 1
Всемирная паутина
Имеется ввиду интернет
Два фрагмента
Верхний и нижний подсвечены синим цветом
var
s: string;
i,n: integer;
begin
readln(s);
n:=1;
for i:=1 to length(s) do
if ((s[i]='3') or (s[i]='6') or (s[i]='9')) then
n:=n*(ord(s[i])-48);
write(n);
end.
Надеюсь алгоритм автомата обьяснять не надо
Таблица из чего что получается при пробеге от 100 до 999
[189, 917]
[890, 917]
[898, 1717]
[981, 917]
[989, 1717]
Общее кол-во / Статистика
{1717=>2, 173=>0, 179=>0, 1719=>0, 1917=>0, 917=>3, 317=>0, 111=>0}
Решается аналитически путем подбора числа из которого мог бы получится желаемый результат.
Заметим что максимальная сума двух разрядов 9+9=18 , что сразу отметает 1-73, 1-79, 17-19, 1-917 (другие разбиения противоречат п.2)
1-11 - получается средний разряд = 0, а последний = 11 > 9
3-17 - получается 17 = 9+8, а 3 < 8