Program Main;
var c1, c2, c3, t1, t2, t3, s: integer;
Begin
Readln (c1, c2, c3);
Readln (t1, t2, t3);
c1:=c1*t1;
c2:=c2*t2;
c3:=c3*t3
s:=c1+c2+c3;
Writeln (c1);
Writeln (c2);
Writeln (c3);
Writeln (s);
Readln;
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.
1024 : 256= 4 (скорость 256 бит/с < 1024бит/с в 4 раза)
За одно и то же время можно передать файл размером в 4 раза меньше:
4 Кбайт :4 =1 Кбайт=1024 байта.