можно изменить регистр символов, изменить атрибуты (жирный, курсив, подчеркнутый, зачеркнутый и т. д.) , изменить кегль шрифта (10,12,14 и т. д.) , тип шрифта (Таймс, Тахома, Ариал и т. д. ) ну и т. д.
Var
m, n: integer;
begin
readln(m, n);
if (m mod n = 0) or (n mod m = 0) then
writeln(1)
else
begin
randomize;
writeln(random(50));
end;
<span>end.</span>
Книгу надо открыть и начать читать, альбом открыть и просматривать, запись прочитать, электронный дневник зайти зарегистрироваться на сайте и открыть нужный файл, СD начать прослушивать, Сим карту вставить в телефон, С водой начать взаимодействовать (потрогать её там), напиток попробовать на вкус.
1.
При 101 значение равно 1 в остальных 7 комбинациях 0
2.
Все 1, тождественная 1
3.
<span>При 00 значение равно 1
в остальных 3 комбинациях 0</span>
<span>
См. приложение.
</span>
Для упрощения задачи не будем рассматривать вырожденные варианты, т.е. решаем её для случая, когда все три точки являются вершинами некоторого треугольника. Тогда эти точки и есть точки пересечения линий, на которых лежат стороны треугольника.
Воспользуемся известным уравнением прямой, проходящей через две точки с координатами (x₁;y₁) и (x₂;y₂):
Ax+By+C=0, где A=y₂-y₁, B=x₁-x₂, C=y₁x₂-x₁y₂
procedure Equation(x1,y1,x2,y2:real; var A,B,C:real);
begin
A:=y2-y1;
B:=x1-x2;
C:=y1*x2-x1*y2
end;
var
x,y,a,b,c:array[1..3] of real;
i:integer;
begin
Writeln('Введите парами чисел x,y координаты трех точек');
for i:=1 to 3 do begin
Write('Точка ',i,': '); Read(x[i],y[i])
end;
Equation(x[1],y[1],x[2],y[2],a[1],b[1],c[1]);
Equation(x[1],y[1],x[3],y[3],a[2],b[2],c[2]);
Equation(x[2],y[2],x[3],y[3],a[3],b[3],c[3]);
{ получены коэффициенты уравнений }
for i:=1 to 3 do begin
Write(a[i],'*x');
if b[i]>=0 then Write('+');
Write(b[i],'*y');
if c[i]>=0 then Write('+');
Writeln(c[i],'=0')
end
end.
<em><u>Тестовое решение:</u></em>
Введите парами чисел x,y координаты трех точек
Точка 1: 1 5
Точка 2: 5 6
Точка 3: 4 2
1*x-4*y+19=0
-3*x-3*y+18=0
-4*x+1*y+14=0
