zadach150.BAS

{* Задача150 *}

REM basic

' Дано натуральное число:
' а) Найти произведение цифр числа;
' b) верно ли, что в данном числе нет данной цифры А


CLS
Xint% = 16232
Xstr$ = LTRIM$(STR$(Xint%))
Xlen% = LEN(Xstr$)
 
INPUT "A=", A%
Ain% = 0
Xresult = VAL(Mid$(Xstr$, 1, 1))
If Xresult = A% Then Ain% = 1
For I = 2 To Xlen%
Xin% = VAL(Mid$(Xstr$, I, 1))
If Xin% = A% Then Ain% = 1
Xresult = Xresult * Xin%
Next I
 
PRINT "Proizvedenie=", Xresult
If Ain% = 1 Then
PRINT "Neverno"
Else
PRINT "Verno"
End If