Решить задачу в Паскале:
Найти сумму чисел а и b, если оба чётные и неотрицательные их произведение в противном случае.
ПОМОГИТЕ!!!
Ответы
Ответ дал:
0
Var a,b: integer;
Begin
Readln(a,b);
If (a mod 2=0) and (b mod 2=0) and (a>0) and (b>0) then write(a+b) else write(a*b);
End.
Begin
Readln(a,b);
If (a mod 2=0) and (b mod 2=0) and (a>0) and (b>0) then write(a+b) else write(a*b);
End.
Похожие вопросы
2 года назад
2 года назад
9 лет назад
9 лет назад