Запишите ** языке Pascal следующие условия: -3<х<=10; х≠0, у≠о; х€[-10;0); величина х не...

Question

Запишите на языке Pascal следующие условия: -3<х<=10; х≠0, у≠о; х€[-10;0); величина х не кратна 3<br>и 12 пожалуйста тоже)

---

Comments

Задание 12: if x >= 99 and x<=999 then writeln("Yes!") else writeln("No!"); В общем-то всё!

---

Поправочка: if x>=100 and x<=999 ....

---

или так: if x>99 and x<1000 then...

Answer 1

Задание 11.
(-3 < x) and (x <= 10) или (x > -3) and (x <= 10)<br>x <> 0; y <> 0 или not (x = 0); not ( y = 0)
x >= -10 and x < 0
x mod 3 <> 0

Задание 12.
if x > 99 and x < 1000 или
if x >= 100 and x <=999<br>