Var a,b,c,d,e:real;
Begin
WriteLn('Отрезок [a,b]');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
WriteLn('Введите три числа');
ReadLn(c,d,e);
if (a<=c)and(a<=d)and(a<=e)and(c<=b)and(d<=b)and(e<=b) then
WriteLn('Числа принадлежат заданному отрезку')
else
WriteLn('Числа не принадлежат заданному отрезку');
ReadLn
End.
Задание 4 Отметьте точки: 1(2,6), 2(2,8), 3(1,10), 4(2,11), 5(4,8), 6(13,8), 7(15,6), 8(10,6), 9(8,2), 10(5,2), 11(7,6), 12(7,8)
нэли
Получился самолет
Ставишь точки на координатной плоскости и соединяешь последовательно, как в задании
Точно, конечно, ответить сложно. Но что-то мне подсказывает, что всё же олень. Олень.
Div - операция целочисленного деления
31 div 5 = 6