Дано трехзначное число. Вывести кол-во единиц, кол-во десятков, кол-во сотен. с помощью...

Question

Дано трехзначное число.
Вывести кол-во единиц, кол-во десятков, кол-во сотен.
с помощью кубейсика))

Answer 1

DIM n AS INTEGER
CLS
INPUT "Vvedite trehznachnoe chislo: ", n
PRINT "edinits-"; n MOD 10
PRINT "desyatkov-"; INT((n MOD 100) / 10)
PRINT "soten-"; INT(n / 100)
END

Тестовое решение:
Vvedite trehznachnoe chislo: 307
edinits- 7
desyatkov- 0
soten- 3

Comments

Извиняюсь, русских букв нет у меня в Бейсике...