Заданы два целых числа a и b. Составьте программу, определяющую, сколько целых чисел, которые одновременно удовлетворяют двум неравенствам x>a и x<b
Ответы
Ответ дал:
0
var a,b:integer;
begin
readln (a,b);
if a<b then write (b-1-a) else write(0)
end.
Ответ дал:
0
Что это такое?
Ответ дал:
0
Например: a=5 и b=15. Значит 5
Ответ дал:
0
Значит 5
Ответ дал:
0
Ввод: 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.
Рад, что мои решения кому-то интересны.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад