Написать программу в Pascal. Даны действительные числа x(1), y(1), x(2), y(2), ..., x(15), y(15), которые рассматриваются как координаты (x(1),y(1)), (x(2),y(2)), ..., (x(15),y(15)) точек на плоскости. Выяснить, верно ли, что для каждой из этих пятнадцати точек найдется другая, такая, что все оставшиеся тринадцать точек лежат по одну сторону от прямой, проходящей через эти две точки.

x1 e2 h3 4h 5,m5 d6 равны между собой

а неровны x15 y15

Объяснение:

тут всё просто

X1,e2,y3 свё просто понятно

1)

program z1;

var a: integer;

begin read(a);

if (a> 9) and (a< 100) then writeln(a, '-двузначное число')

else writeln(a, '-не является двузначным числом');

end.

2)

program z2;

var i: integer;

begin

for i: =1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');

end.

2 способ:

program z2; var i: integer; begini: =1; while i< =9 do begin write(i, ', '); i: =i+2; end; end.

3)

program z3; var i,n: integer; s: real; a: array[1..100] of real; beginwrite('введите количество элементов массива: '); readln(n); write('введите элементы массива: '); for i: =1 to n do read(a[i]); i: =1; s: =0; while i< =n do begin s: =s+a[i]; i: =i+2; end; write('s=',s); end.

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.