• 1) Даны два числа.Если они оба четные, то найдите сумму чисел, иначе разность. 2) Даны два числа. Если сумма чисел больше 1, то найдите целую часть от деления, иначе остаток от деления. Пожалуйста с понятным решением..

Ответы 1

  • 1)

    var a,b:integer;beginreadln (a,b);if (a mod 2 =0) and (b mod 2=0) then writeln (a+b);if (a mod 2<>0) and (b mod 2<>0) then writeln (a-b);end.

     

    2)

    var a,b:integer;beginreadln (a,b);if (a+b>1) then writeln (a mod b)elsewriteln (a div 10);end.

     

  • Добавить свой ответ

Войти через Google

или

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

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

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