Даны числа а и б, надо определить их сумму, если а-четное - вопрос №8519043 от BOULEVARDDEPO111 10.10.2021 21:38

Question

Информатика: Даны числа а и б, надо определить их сумму, если а-четное или произведение, если а-нечетное. составить программу в паскаль

BOULEVARDDEPO111 · Answer

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

var (a,b):=readinteger2('a,b->');

if a.IsEven then Writeln('a+b=',a+b) else

Writeln('a*b=',a*b);

end.