Запишите ** языке Pascal. x>0, y≤5. Величина x - четная. Величина x - нечётная. X кратно...

Question

Запишите на языке Pascal.
x>0, y≤5.
Величина x - четная.
Величина x - нечётная.
X кратно 3.
X делится без остатка на 2 и на 3.
X не делится на 5

Answer 1

If x > 0 then ...
if y <= 5 then ...<br>if x mod 2 = 0 then ...
if x mod 2 <> 0 then ...
if x mod 3 = 0 then ...
if (x mod 2 = 0) and (x mod 3 = 0) then...
if (x mod 5 <> 0) then ...