{* Задача112 *}

REM basic

' Найти произведение цифр заданного целого четырехзначного числа.


CLS
INPUT "Введите четырехзначное число : ", Number
PRINT : PRINT "Цифры числа "; Number; ": {;
}Number = ABS(Number)
i = FIX(Number / 1000): PRINT i ; { FIX - целая часть аргумента
}j = FIX(Number / 100) Mod 10 : PRINT j ;
k = FIX(Number / 10) Mod 10 : PRINT k ;
l = Number Mod 10 : PRINT l
P = i * j * k * l
PRINT : PRINT "О т в е т : произведение цифр равно " ; P
End