Даны три числа, выберите те из них, которые принадлежат заданному отрезку ab (программа, блоксхема)
Answers & Comments
VladimirBorisov
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 writeln('Число ', one, ' принадлежит отрезку ', a, ' ', b); if ((two >= a) and (two <= b)) then writeln('Число ', two, ' ïпринадлежит отрезку ', a, ' ', b); if ((thr >= a) and (thr <= b)) then writeln('Число ', thr, ' принадлежит отрезку ', a, ' ', b); End.
Answers & Comments
vara,b,one,two,thr : integer;
Begin
writeln('Введите отрезок (левая - правая границы)');
read(a,b);
writeln('Введите 3 числа');
read(one, two, thr);
if ((one >= a) and (one <= b)) then
writeln('Число ', one, ' принадлежит отрезку ', a, ' ', b);
if ((two >= a) and (two <= b)) then
writeln('Число ', two, ' ïпринадлежит отрезку ', a, ' ', b);
if ((thr >= a) and (thr <= b)) then
writeln('Число ', thr, ' принадлежит отрезку ', a, ' ', b);
End.