2. установите соответствия:
форматировать чем моторие оты:
выделение строки
цветом,
содержащую
ячейку с
определенным
значением.
15
1
«правила
выделения
ячеек». («больше»)
меньше
форватировать пчелиси, которые meные:
382
пс) е светла красота
дата начала
проекта
статус
«правила
выделения ячеек» -
«меньше»).
сумма | менеджер
кано и
150 оор/казочиц р.а
здо осопетрова д-
ота2.2015
01.01.2016
07.12.2015
зао 250 геров с.д.
100 101
и pc
97 460) димитрова к.л.
32 700диаитрова к.
1
зо.2.2
10.2.2015
// Внимание! Если программа не работает, обновите версию!
begin
var n:=4;
var xp:=new real[n];
var yp:=new real[n];
Writeln('Введите парами координаты четырех вершин');
for var i:=0 to n-1 do Read(xp[i],yp[i]);
var (x,y):=ReadReal2('Введите координаты точки:');
var (i,j,c):=(0,n-1,False);
while i<n do begin
if ((yp[i]<=y) and (y<yp[j]) or (yp[j]<=y) and (y<yp [i]))
and (x<(xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c:=not c;
j:=i; i+=1;
end;
if c then Writeln('Внутри')
else Writeln('Не внутри')
end.