Var
a,b:array[1..100]of integer;
i,max,min,n:integer;
begin
readln(n);
max:=0; min:=32;
for i:=1 to n do
begin
readln(a[i],b[i]);
if a[i]>max then max:=a[i];
if b[i]<min then min:=b[i];
end;
if min>=max then
writeln('YES')
else writeln('NO');
end.
Пример:
3
1 5
3 10
4 14
<span>YES</span>
Нет, например задачи NP - класса 3-SAT и 3-NCF, также задача факторизации за ф-ию от длины. Решение - экспонента, а проверка ответа - линейная(полином)
Var x,y: Integer;
begin
writeln('Введите x');
readln(x);
if x<0 then y:=x+5 else
y:=x+10;
writeln('y=',y);
end.
//PascalABC.Net 3.2
begin
var x1:=readreal ('x1 ='); var y1:=readreal ('y1 =');
var x2:=readreal ('x2 ='); var y2:=readreal ('y2 =');
if (sqr(x1)+sqr(y1))=(sqr(x2)+sqr(y2)) then write ('Равноудалены') else
if (sqr(x1)+sqr(y1))<(sqr(x2)+sqr(y2)) then write ('Первая') else write ('Вторая');
end.