Question

Помогите написать программу!
1. Запишите следующие условия:


Числа
a и b имеют разную четность.
Одно
из чисел a
и b
положительно.
Одно из чисел a и b является квадратом
другого.
Точка
A(x,y) принадлежит
первому и второму квадранту.
Число
a не больше
среднего арифметического чисел b, c,
d.

Answer 1

Паскаль АВС:

Числа a и b имеют разную четность.
if (a mod 2) <> (b mod 2) then

Одно из чисел a и b положительно.
if (a >0) or (b >0) then 

Одно из чисел a и b является квадратом другого.
if (a=b*b) or (b=a*a) then

Точка A(x,y) принадлежит первому или второму квадранту.
if (y >0) then

Число a не больше среднего арифметического чисел b, c, d.
if (a <= (b+c+d)/3) then