Проверь соединение с жестким диском , порядок загрузки в биосе.
Объяснение:
2+2=4 - истина
2+9=8 - ложь
Витебск - город - истина
Беларусь - федерация - ложь
if i>l then write(a) - условное выражение - истина
Begin и end - не обезательные команды - ложь
У паука 8 лап - истина
У черепахи 6 лап - ложь
Наполеон Бонапартр - император французов - истина
Христофо Колумб - японец - ложь
А.С. Пушкин - великий пиватель - истина
Фёдор Достоевский - американский писатель - ложь
Не сидите много за компьютером, это опасно. компьютер плохо сказывается на здоровье человека. в частности на осанке и зрении. что бы с тобой было все хорошо нужно сидеть ровно перед экраном и не сутулиться. делать перерывы и долго не сидеть за компьютером. компьютер полезная вещь, но злоупотреблять не стоит
Var x, y:real;
Begin
Readln(x) ;
Y:=(sqr(a) +1)/sqrt(sqr(a)+1)
Write(y);
End.
Предположим что отрезок будет равен 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.