На паскале. сколько думаю никак не доходит. даны целые числа x, y, x1,y1, x2,y2. проверить истинность высказывания: точка x,y – лежит на прямой, проходящей через точки (x1,,y2).
Imgur . com / uGU6pYw пробелы уберешь...P.S слева будет стрелочка с ''6 раз''-нужно будет задать для все переменных writeln и readln... и там строчка if (x>=x1) and (x<=x2) and (y>=y1) and (y<=y2) then (просто она плохо видна...) P.S в ссылке пробелы убери
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 const n=100; // заменить на 10000 var a:array[1..n] of byte; i:byte; j:integer; begin // инициализация, для for j:=1 to n do a[j]:=Random(256); // собственно программа for i:=0 to 255 do for j:=1 to n do if a[j]=i then Write(i,' '); end.
