Выяснить, лежит ли на одной прямой точки а(x1,y1), b(x2,y2),c(x3,y3).координаты точек вводятся пользователем с клавиатуры ,результат работы программы выводится на экран

//pascal abc.net 3.1 сборка 1219 var   x1,x2,x3,y1,y2,y3: integer;   p1,p2: real; begin   readln(x1,y1,x2,y2,x3,y3);   p1: =(y3-y1)/(y2-y1);   p2: =(x3-x1)/(x2-x1);   if p1=p2 then writeln('на одной прямой') else writeln('не на одной прямой'); end. пример ввода: 1 1 2 2 3 3 пример вывода: на одной прямой

Var x1,y1,x2,y2,x3,y3,a,b: real; begin write('a: '); readln(x1,y1); write('b: '); readln(x2,y2); write('c: '); readln(x3,y3); a: =(y2-y1)/(x2-x1); b: =y2-a*x2; if y3=a*x3+b   then writeln('точки лежат на одной прямой')   else writeln('точки не лежат на одной прямой'); end. пример: a: 1 1 b: 2 3 c: 3 5 точки лежат на одной прямой

93₁₀ =1011101₂

93 : 2 = 46 (1)

46 : 2 = 23 (0)

23 : 2 = 11 (1)

11 : 2 = 5 (1)

5 : 2 = 2 (1)

2 : 2 = 1 (0)

1 : 2 = 0 (1)

 

124₁₀ =1111100₂

124 : 2 = 62 (0)

62 : 2 = 31 (0)

31 : 2 = 15 (1)

15 : 2 = 7 (1)

7 : 2 = 3 (1)

3 : 2 = 1 (1)

1 : 2 = 0 (1)

1) 35-25=10 (чел.) - не являются читателями школьной библиотеки

2) 35-20=15 (чел.) - не являются читателями районной библиотеки

3) (25+20)-35=10 (чел.) - читатели обеих библиотек

4) 20-10=10 (чел.) - читатели только районной библиотеки

5) 25-10=15 (чел.) - читатели только школьной библиотеки