Решить задачку в Паскале: Отыскать сумму чисел а и b, если

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

Задать свой вопрос
1 ответ
Var a,b: integer;
Begin
Readln(a,b);
If (a mod 2=0) and (b mod 2=0) and (agt;0) and (bgt;0) then write(a+b) else write(a*b);
End.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт