profile
Опубликовано 6 лет назад по предмету Информатика от Аккаунт удален

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

  1. Ответ
    Ответ дан elenaklon

    var a,b:integer;

    begin

    readln (a,b);

    if a<b then write (b-1-a) else write(0)

    end.

    1. Ответ
      Ответ дан Аккаунт удален
      Что это такое?
    2. Ответ
      Ответ дан elenaklon
      Например: a=5 и b=15. Значит 5
    3. Ответ
      Ответ дан elenaklon
      Значит 5
  2. Ответ
    Ответ дан Аккаунт удален

    Ввод: 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.

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

Самые новые вопросы