Ответ:
допустим вот так
Объяснение:
это легко на самом деле главное понять
Решение, который дал другой пользователь, слишком сложное. Я могу предложить альтернативный вариант, который будет гораздо проще в понимании.
Var a,s,s1:integer;
Begin
write('Введите число -> ');
readln(a);
s1:=1;
while a>0 do
begin
s:=s+(a mod 10);
s1:=s1*(a mod 10);
a:=a div 10;
end;
writeln('Сумма цифр числа равна -> ',s);
writeln('Произведение цифр числа равно -> ',s1);
End.
1)
(1 V (A V B)) V ((A V C) & 1) ⇒ 1)(1 V A V B) V ((A V C) & 1) ⇒
1 V ((A V C) & 1) ⇒ 1 V (A V C) ⇒ 1
Ответ: 1111
2)
(A & B & ¬B) V (A & ¬A) V (B & C & ¬C) ⇒ 0 V 0 V 0 ⇒ 0
Ответ: 0000
Предположим что отрезок будет равен X см тогда зная координату точки можно узнать будет ли точка принадлежать отрезку надо просто длинна отрезка минус значение координаты
program zadacha;
var x1,y1,x2,y2,x3,y3,a,b: real;
begin
writeln('Введите координаты x1,y1');
readln(x1,y1);
writeln('Введите координаты x2,y2');
readln(x2,y2);
writeln('Введите координаты x3,y3');
readln(x3,y3);
a:=(y1-y2)/(x1-x2);
b:=((y1+y2)-a*(x1+x2))/2;
if (y3 = a*x3+b) and (x3 > x1) and (x3 < x2) or (y3 = a*x3+b) and (x2 > x1) and (x3 < x1)
then writeln('Точка принадлежит отрезку')else writeln('Точка не принадлежит отрезку')
end.