Даны три числа, выберите те из них, которые принадлежат заданному отрезку ab (программа,...

0 голосов
80 просмотров

Даны три числа, выберите те из них, которые принадлежат заданному отрезку ab (программа, блоксхема)


Информатика (106 баллов) | 80 просмотров
Дан 1 ответ
0 голосов

Program task_1;
vara,b,one,two,thr : integer;
Begin
writeln('Введите отрезок (левая - правая границы)');
read(a,b);
writeln('Введите 3 числа');
read(one, two, thr);
if ((one >= a) and (one <= b)) then   <br>writeln('Число ', one, ' принадлежит отрезку ', a, ' ', b);
if ((two >= a) and (two <= b)) then  <br> writeln('Число ', two, ' ïпринадлежит отрезку ', a, ' ', b);
if ((thr >= a) and (thr <= b)) then   <br> writeln('Число ', thr, ' принадлежит отрезку ', a, ' ', b);
End.

(351 баллов)