Выяснить, лежит ли на одной прямой точки а(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
Точки лежат на одной прямой

1. изображение имеет размеры 1200*1024 пиксель, и нарисовано в два цвета: черный и белый. определите размер файла.

1200 * 1024 * 1 бит = 1228800 бит
1228800 бит /8 бит в байте / 1024 байт в килобайте = 150 килобайт

2. рисунок имеет размеры 1920*1080 пиксель, нарисован с палитрой 16 777 216. определите размер файла.
16 777 216 = 2^24 то есть 24 бит. 24 / 8бит = 3 байта на одну точку.
1920*1080*3 = 6220800 байт = 6075 кб

3.для хранения растрового изображения размером 1024*512 пиксель отвели 256 кба памяти. каково максимально возможное число цветов в палитре изображения?

256 кб = 262144 байт

262144 / 1024*512 = 0,5 байта = 4 бита
в четырех битах можно уложить 2^4 = 16 цветов.

Для удобства построения таблицы истинности введем логические переменные.

Обозначим 2*2=4 через a, 3*3=9 - через b.

Тогда высказывание примет вид:

Для этого выражения и построим таблицу истинности.

2. Для доказательства равносильности указанных выражений можно построить таблицы истинности и сравнить их.

Как видно, НЕСОВПАДЕНИЕ полное, т.е. ни при каком сочетании a и b выражения не равносильны. Это подтверждается  теорией - имеются законы де-Моргана, в которых еще присутствует общее отрицание или в правой. или в левой части.

Объяснение: