• даны два целых числа.если они оба четны,то большее из них поделить на 2;если оба нечетные, то каждое умножить на 2; в противном случае нечетное из чисел увеличить на 1.....Помогите в Паскале написать

Ответы 2

  • Я не проверил программу, попробуйте сами протестировать.
    • Автор:

      william86
    • 6 лет назад
    • 0
  • var a,b,c:longint;begin readln(a,b); if b>a then begin c:=b; b:=a; a:=c; end; if (a mod 2=0) and (b mod 2=0) then write(a,' : 2 = ',a/2) else if (a mod 2=1) and (b mod 2=1) then write(a,' * 2 = ',a*2,'; ',b,' * 2 = ',b*2) else if (a mod 2=1) then write(a,' + 1 = ',a+1) else write(b,' + 1 = ',b+1); readln;end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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