Запишите ** языке паскаль, Си или Бейсик логическое выражение , истинное при выполнении...

Question

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

Comments

Ми - это Си?

---

Исправила.

---

В си: (A > 9 && A < 100 && A % 3 == 0 && A % 10 != 3 && A / 10 != 3)

---

(A % 3 == 0 && A % 10 != 3 && A / 10 != 3) достаточно этого

---

А проверка на двухзначность?

---

В условии сказано, что задается двузначное число

---

Тогда бы вопрос звучал примерно так: "заданное число двузначное и делится на 3..."

---

Не буду спорить, вопрос трактовки задания можно долго обсуждать.

Answer 1

Вот вариант на 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)

Comments

Не могу согласиться с таким ответом. Сказано в условии: "Запишите на языке паскаль, Си или Бейсик ЛОГИЧЕСКОЕ ВЫРАЖЕНИЕ ...". А вовсе не программу.

Answer 2

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