Найти все двузначные числа - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.333 из 5
Похожие ответы