Составьте программу, в которой значение переменной с вычисляется по формуле: а + ь, если а — нечетное (a mod 2 = 1), и а*ь, если а — четное (а mod 2 = 0)

ksyu5551 ksyu5551    1   03.03.2019 13:35    6

Ответы
muratowaasya muratowaasya  06.06.2020 23:57

Var

a,b,s:integer;

Begin

readln (a,b);

if (a mod 2 = 1)

then s := a + b

else if (a mod 2 = 0)

then s := a * b;

write(s);

End.

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