Запишите на языке паскаль, Си или Бейсик логическое выражение , истинное при выполнении условия : заданное двузначное натуральнео число А делится на 3, а цифра 3 не входит в десятичную запись этого числа

В Паскале: (a>9) and (a<100) and (a mod 3 = 0) and (a div 10<>3) and (a mod 10 <>3)

Вот вариант на VBScript, который должен сойти за басик Если что будет не понят - спрашивайте Function Has3Digit(number)         f = false         t = number         Do While t > 0             f = f or (t mod 10 = 3)             t = t \ 10         Loop         Has3Digit = f End Function number = 03 MsgBox (number mod 3 = 0) and not Has3Digit(number)