К<span> </span>фактам<span> </span>относятся <em />знания об определённых явлениях
// PascalABC.NET 3.3.5
begin
var xa, xb, xc, ya, yb, yc: real;
readln(xa, ya, xb, yb, xc, yc);
writeln(abs((xa - xc) * (yb - yc) - (xb - xc) * (ya - yc))/2);
end.
В чем именно проблема?
Рисуешь таблицу, первый столбик станции (Откуда и докуда) , второй столбик время в пути. Я так понял задание
Напишу сразу код, немного прокемментировал, но если взялись связать свою жизнь с информатикой, то нужно изучать это всё.
varF:array[0..16] of integer;i,i2:integer;schet:integer;
begin
schet:=0;
//заполнение массива согласно данным условиям
for i:=0 to 9 dof[i]:=1;
for i:=11 to 13 dof[i]:=1;
//создадим два отрицательных массива
f[10]:=-1;
F[14]:=-1;
//заполним вручную недостающие
f[15]:=1;
f[16]:=1;
for i:=0 to high(f) do begin //начинаем цикл
if f[i]<0 then begin //проверяем первое условик
if schet=0 then begin
inc(schet);
for i2:=0 to i do
f[i2]:=0;
end else
if schet=1 then //второе условие
for i2:=i to high(f) do
f[i2]:=0; end;<span>end;
//end for</span>