Задать вопрос
ИнформатикаИнформатика
28 ноября, 09:58

Cnt2_3 Ввести 6 чисел, подсчитать количество чисел принадлежащих интервалу (10; 12,3].

+1
Ответы (1)
  1. 28 ноября, 11:59
    0
    Var

    s, i:integer;

    x:real;

    begin

    for i:=1 to 6 do

    begin

    readln (x);

    if (x>10) and (x<=12.3) then s:=s+1;

    end;

    writeln ('Ответ: ', s);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Cnt2_3 Ввести 6 чисел, подсчитать количество чисел принадлежащих интервалу (10; 12,3]. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы
Помоги с ответом
Какое наибольшее число плоскастей можно проаести через различные пары из четырех параллельных прямых
Нет ответа
Почему при упоминании о лимоне у человека выделяется слюна? случается ли такое у людей которые не ели лимоны?
Нет ответа
Значения слов: 1. Дельта 2. пороги 3. ил 4. папирус 5. оазин 6. фараон
Нет ответа
Объясните как определить заряд иона образуемого кислотным остатком и соответствующий оксид ... на примере H3PO4
Нет ответа
Найдите значение минус А если 1) a=3,8 2) a=-6,4
Нет ответа
Главная » Информатика » Cnt2_3 Ввести 6 чисел, подсчитать количество чисел принадлежащих интервалу (10; 12,3].
Регистрация Забыл пароль