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

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

DIM n AS INTEGERCLSINPUT "Vvedite trehznachnoe chislo: ", nPRINT "edinits-"; n MOD 10PRINT "desyatkov-"; INT((n MOD 100) / 10)PRINT "soten-"; INT(n / 100)ENDТестовое решение:Vvedite trehznachnoe chislo: 307edinits- 7desyatkov- 0soten- 3