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

Question

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

Comments

Число это двухзначное?

Answer 1

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);