Найти все двузначные числа - VB
Формулировка задачи:
Найти все двузначные числа, равные утроенному произведению своих цифр например (24)
Разработать пользовательскую форму и составить программу в редакторе VB MS Excel.
Решение задачи: «Найти все двузначные числа»
textual
Листинг программы
REM OTBET: 15, 24 CLS DIM n AS INTEGER DIM a AS INTEGER DIM b AS INTEGER DIM p AS INTEGER FOR n = 10 TO 99 a = n \ 10 b = n MOD 10 p = 3 * a * b IF n = p THEN PRINT n NEXT