Даны 2 числа, если 1-ое чётное,а 2-ое нечётное, отыскать их сумму,

Даны 2 числа, если 1-ое чётное,а второе нечётное, найти их сумму, если нет, то отыскать разность

Паскаль

Задать свой вопрос
1 ответ

Var a, b:integer;

begin

Readln(a) ;

Readln(b) ;

If a mod 2=0 And b mod 2 lt;gt;0 then writeln(a+b)

Else writeln (a-b) ;

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт