Предмет: Информатика,
автор: azzazel669
Запишите на языке паскаль, Си или Бейсик логическое выражение , истинное при выполнении условия : заданное двузначное натуральнео число А делится на 3, а цифра 3 не входит в десятичную запись этого числа
Ответы
Автор ответа:
0
В Паскале:
(a>9) and (a<100) and (a mod 3 = 0) and (a div 10<>3) and (a mod 10 <>3)
(a>9) and (a<100) and (a mod 3 = 0) and (a div 10<>3) and (a mod 10 <>3)
Автор ответа:
0
Вот вариант на 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)
Если что будет не понят - спрашивайте
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)
Автор ответа:
0
Не могу согласиться с таким ответом. Сказано в условии: "Запишите на языке паскаль, Си или Бейсик ЛОГИЧЕСКОЕ ВЫРАЖЕНИЕ ...". А вовсе не программу.
Похожие вопросы
Предмет: Алгебра,
автор: illiquence
Предмет: Русский язык,
автор: irbisfootbal
Предмет: Английский язык,
автор: iirvarprttm
Предмет: География,
автор: parfenovasofia
Предмет: Математика,
автор: hejna