Заданы два целых числа a и b. Составьте программу, определяющую, сколько целых чисел,...

Question

Заданы два целых числа a и b. Составьте программу, определяющую, сколько целых чисел, которые одновременно удовлетворяют двум неравенствам x>a и x<b

Comments

Например: a=5 и b=15. Значит 5

---

X=6,7,8,9,10,11,12,13,14

---

т.е. 9 целых целых чисел, которые одновременно удовлетворяют двум неравенствам x>a и x

---

15-1-5=9 целых чисел, которые одновременно удовлетворяют двум неравенствам x>a и x

---

При условии, что a

---

При условии, что a меньше b.

Answer 1

Ввод: a ^ b С/П.

- x>=0 05 0 С/П /-/ 1 - С/П

Согласен, отрицательный результат противоречит условию, исправил. Благодарю за замечание, был невнимателен.

Смысл кода такой:

X = a; Y = b;

X -= Y; Если не (X >= 0), переход на 05; X = 0; Стоп; [05] Смена знака; Y = X, X = 1; X -= Y; Стоп. На индикаторе X.

Рад, что мои решения кому-то интересны.

Answer 2

var a,b:integer;

begin

readln (a,b);

if a end.

Comments

Например: a=5 и b=15. Значит 5

---

Значит 5