Автомат получает на вход трёхзначное десятичное число. по этому числу строится новое число по следующим правилам. 1. перемножаются первая и вторая, а также вторая и третья цифры. 2. полученные два числа записываются друг за другом в порядке возрастания (без разделителей). пример. исходное трёхзначное число: 157. произведения: 1*5 = 5; 5*7 = 35. результат: 535. определите, какое из следующих чисел может быть результатом работы автомата. 1) 8290 2) 3556 3) 3216 4) 3572

1) сразу ясно, что невозможно, так как максимальное число, которое мы можем получить - это 81 (пермножается наибольшая цифра 9) 2) здесь уже надо подумать. из нашего условия видно, что второе число повторяется дважды и там и там. то есть эти два числа (в данном случае 35 и 56) будут иметь одинаковый множитель "второе число". на это и будем опираться. посмотрим. 35 можно получить из произведения 5 на 7, а число 56 - из произведения 8 на 7. заметим, что цифра 7 повторяется там и там, то бишь это и есть наша вторая цифра => может оказаться результатом работы автомата. 3) здесь 32 можно получить, перемножив цифры 8 и 4, а 16 - 2 на 8. повторяется 8 => может оказаться результатом работы автомата. 4) делители 35 - это 5 и 7, у 72 - это 9 и 2^3 (8). здесь уже нет общих делителей. (9 умножить на 2 не получиться, так как это уже будет не цифрой. только 9 и 8) => не может быть результатом работы автомата. более кратко будет так: 1)нет 2)да 3)да 4)нет

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.