• Решить задачу в Паскале:
    Найти сумму чисел а и b, если оба чётные и неотрицательные их произведение в противном случае.
    ПОМОГИТЕ!!!

Ответы 1

  • Var a,b: integer;BeginReadln(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.
    • Автор:

      bravo
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years