Задание:
Даны три числа, выберите те из них, которые принадлежат заданному отрезку ab (программа, блоксхема)
Решение:
Program task_1; vara,b,one,two,thr: integer; Beginwriteln ('Введите отрезок (левая — правая границы) '); 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.
Знаете другой ответ?