Запишите на языке паскаль, Си или Бейсик логическое выражение , истинное при выполнении условия : заданное двузначное натуральнео число А делится на 3, а цифра 3 не входит в десятичную запись этого числа
More Questions From This User See All
Answers & Comments
Verified answer
Вот вариант на 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)