Люди, подскажитееке
А как сюда скинуть фотографию.
(5>30) v ( !(even(5) & (5<10) )
0 v ( 1 & 1) = 1
Истина
(8>30) v ( !(even(8) & (8<10) )
0 v ( 0 & 1 ) = 0
Ложь
(27>30) v ( !(even(27) & (27<10) )
0 v ( 1 & 0 ) = 0
Ложь
(42>30) v ( !(even(42) & (42<10) )
1 v ( 0 & 0 ) = 1
Истина
Обозначим
. Тогда система превращается в такую:
Пусть
. Тогда
. Учитывая, что уравнение
имеет 1 решение
, а
- 3 решения, а также вспоминая, что все переменные независимы, получаем по правилу умножения, что в этом случае будет
решений.
Если
, всё будет так же с точностью до замены 1 на 0 и наоборот, в этому случае будет тоже 27 решений.
Всего возможных наборов 27 + 27 = 54.
ох уж не знаю, права я или нет :D
Но вот я бы сделала так)))
begin
readln(a); {Тут мы вводим число, которое будем проверять: делится оно на три или нет}
s := 0; {это у нас будет сумма цифр числа }
while a<>0 do
begin
b := a mod 10; {выделяем последнюю цифру}
s := s + b; {находим сумму}
a := a div 10 {переходим к следующей цифре}
end;
if s mod 3 = 0 then {ну а вот тут, как раз, проверяем}
writeln('число делится на три')
else
writeln('число не делится на три')
end.