Дано натуральное число. верно ли, что произведение его цифр больше b? в систему си

qbasic:

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

max(n) = 7, при a = 0

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.

сумма=18

семерки нету

или тебе программу написать?

друг сказал) если не правильно извини, но он вродь хорош в информе