7 июля, 12:47

Даны 2 вещественных числа. сколько на отрезке между ними целых чисел паскаль

+2
Ответы (1)
  1. 7 июля, 14:03
    0
    var

    a, b:real;

    i, min, max, count:integer;

    begin

    readln (a, b);

    if a
    begin

    min:=trunc (a) + 1;

    max:=trunc (b)

    end

    else

    begin

    min:=trunc (b) + 1;

    max:=trunc (a)

    end;

    for i:=min to max do

    count:=count+1;

    write (count)

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Даны 2 вещественных числа. сколько на отрезке между ними целых чисел паскаль ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы