<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
if ReadInteger('Введите натуральное число:') mod 4=0
then Writeln('Число кратно четырем')
else Writeln('Число не кратно четырем')
end.
Переводим в 10-тичную с.с.
3*8^1+3*8^0=3*8+3*1=24+3=27(10)
2*4^1+1*4^0=2*4+1*1=8+1=9(10)
Не верно
110
х 101
------------
110
+ 110
------------
11110
А) B*B+B=B+B=B.
б) A* неА+А*неВ+В* неА+В*неВ=А*неВ+В*неА+В*неВ=А*неВ+В*неА.
в) А+неА*В+неА*С=В+А+неА*С=С+В+А
г)А*(А+В+С)=А*А+А*В+А*С=А+А*В+А*С=А+А*С=А
Оканчивается на 23 - это значит, что остаток при делении должен получится сначала 3, а потом 2.
63 / 5 = 12 и остаток 3
12/ 5 = 10 и остаток 2
10/ 5 = 2 => 223(5) = 63(10)
63/4 = 15 и остаток 3
15 /4 = 3 т.е. уже не подходит - оканчивается на 33
Дальше смотрим при делении 63 на что останется 3 в остатке..
63/30 = 2 и остаток 3
23(30) = 63(10)