Составьте программу, в которой значение переменной с вычисляется по
формуле: а + Ь, если а — нечетное (a mod 2 = 1), и а*Ь, если а — четное (а mod
2 = 0)
формуле: а + Ь, если а — нечетное (a mod 2 = 1), и а*Ь, если а — четное (а mod
2 = 0)
More Questions From This User See All
Answers & Comments
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.