Составить алгоритм и программу вычисления произведения цифр заданного целого четырехзначного числа

Категория: Basic

2012-03-16 16:31:59

code: #basic

INPUT "vvedite chislo ", a&
pr& = 1
DO
pr& = pr& * (a& MOD 10)
a& = a& \ 10
LOOP UNTIL a& = 0
PRINT "proizvedenie="; pr&

автор: кот Бегемот

Поделиться:

Sample Code