Дано второе число если сумма цифр числа больше произведения этих чисел больше или равна произведению этих цифр то вывести эти цифры иначе вывести произведения этих цифр

Question

Дано второе число если сумма цифр числа больше произведения этих чисел больше или равна произведению этих цифр то вывести эти цифры иначе вывести произведения этих цифр

Гость

Ответ(ы) на вопрос:

Accepted Answer

Var a,b,c:integer; Begin Read(a); B:=a div 10; C:=a mod 10: If ( (c+b) >= (c*b) ) then writeln(b,c) else writrln(c*b);