Решение в паскале: даны 2 числа. если одно из чисел - чётно то, на экран выводится 1, если оба чётные то выводится 2, если ни одно из них не чётное выводится 0.

ВЕSТ ВЕSТ    3   21.12.2019 18:07    1

Ответы
NadushaLove12 NadushaLove12  10.10.2020 22:16

PascalABC.NET

begin

 var (a, b) := ReadInteger2('Введите два целых числа:');

 var (p, q) := (a mod 2 = 0, b mod 2 = 0);

 if p and q then

   Print(2)

 else if not (p or q) then

   Print(0)

 else Print(1)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика