Решение с объяснением на фото
# Код на ruby 2.2.3p173
def automate(n)
a = n / 1000
b = n / 100 % 10
c = n / 10 % 10
d = n % 10
t = [a*b, c*d]
return (t.max.to_s + t.min.to_s).to_i
end
def zadanie()
for i in 1000..9999
t = automate(i)
p [t, i] if t == 174
end
end
# Примеры применения
zadanie()
Ответ - нет таких цифр
Аналитическое решение
174 можно разложить на 1 + 74 и 17 + 4
по правилу 2 это только 17 + 4
17 - произведение двух чисел, но 17 простое и произведение только 17 и 1. 17 не может быть одной цифрой
Значит вариант 174 невозможен при таких правилах
var b:integer;
begin
readln(b);
If (b div 1000)mod 2=0 then writeln('1 цифра четная')
else writeln('1 цифра нечетная');
If ((b div 100) mod 10)mod 2=0 then writeln('2 цифра четная')
else writeln('2 цифра нечетная');
If ((b div 10)mod 10)mod 2=0 then writeln('3 цифра четная')else writeln('3 цифра нечетная');
If (b mod 100)mod 2=0 then writeln('4 цифра четная')
else writeln('4 цифра нечетная');
<span>end.</span>