Решение в паскале: даны 2 числа. если одно из чисел - вопрос №2110425404 от cactuscus 04.08.2021 11:04

Question

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

cactuscus · Answer

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.