Подскажите ответ:

(X && !Y) = 1 при каких значениях Х и Y

X = 0, Y = 0
X = 0, Y = 1
X = 1, Y = 0
X = 1, Y = 1

X = 1, Y = 0

Объяснение:

!0 - это 1

1 && 1 = 1

(1 && !0) = 1

понадобится 24 секунды.

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.