Запишите на языке паскаль, Си или Бейсик логическое выражение, истинное при выполнении условия: заданное двузначное натуральнео число А делится на 3, а цифра 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)

В Паскале:

(a>9) and (a<100) and (a mod 3 = 0) and (a div 103) and (a mod 10 3)