Задать вопрос
1 августа, 00:07

Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1,3) reshit' po Paskalu

+3
Ответы (1)
  1. 1 августа, 03:12
    0
    program zz1;

    var a, b, c:real; / / вводим переменные не целого типа

    begin

    write (' введите первое число '); / / вводим с клавиатуры первое число

    read (a);

    write (' введите второе число '); / / вводим с клавиатуры второе число

    read (b);

    write (' введите третье число '); / / вводим с клавиатуры третье число

    read (c);

    if (a > 1) and (a < 3) then writeln (' первое число = ', a); / / проверяем на принадлежность интервалу первое число

    if (b > 1) and (b < 3) then writeln (' второе число = ', b); / / проверяем на принадлежность интервалу второе число

    if (c > 1) and (c < 3) then writeln (' третье число = ', c); / / проверяем на принадлежность интервалу третье число

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1,3) reshit' po Paskalu ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы