fork download
copy 
  1. program mehmooni;
  2. const
  3.     MAXN = 200000;
  4. type elenco=array [0..MAXN] of longint;
  5. var
  6.     N, i, j, h, pp  : longint;  (*pp=persone presenti*)
  7.     A, D  : elenco;
  8.     strettemano: int64;
  9.     uscita:boolean;
  10.  
  11. procedure scambia (var x,y: longint);
  12. var t:longint;
  13. begin
  14.    t:=x;
  15.    x:=y;
  16.    y:=t;
  17. end;  
  18. Procedure ordinamento (estremoi,estremos: longint; var v : elenco; ordinato:boolean);
  19. var inf, sup, medio:longint;
  20.     pivot :longint;
  21. begin
  22.     inf:=estremoi;
  23.     sup:=estremos;
  24.     medio:= (estremoi+estremos) div 2;
  25.     pivot:=v[medio];
  26.     repeat
  27.       if (ordinato) then
  28.          begin
  29.             while (v[inf]<pivot) do  inf:=inf+1;
  30.             while (v[sup]>pivot) do  sup:=sup-1;
  31.          end;
  32.       if inf<=sup then
  33.        begin
  34.          scambia(v[inf],v[sup]);
  35.          inf:=inf+1;
  36.          sup:=sup-1;
  37.        end;
  38.     until inf>sup;
  39.     if (estremoi<sup) then ordinamento(estremoi,sup,v,ordinato);
  40.     if (inf<estremos) then ordinamento(inf,estremos,v,ordinato);
  41. end;   
  42.  
  43. begin
  44. {
  45.     uncomment the following lines if you want to read/write from files
  46.     assign(input,  'input.txt');  reset(input);
  47.     assign(output, 'output.txt'); rewrite(output);
  48. }
  49.  
  50.     readln(N);
  51.     for i:=0 to N-1 do
  52.         readln(A[i], D[i]);
  53.     ordinamento (0,N-1,A, true);
  54.     ordinamento (0,N-1,D, true);
  55.     strettemano:=0;    if a[0]<d[0] then pp:=1
  56.                                     else pp:=0;
  57.     j:=0; i:=1;
  58.     while  i<N  do
  59.                   if (a[i]<d[j]) then begin strettemano:=strettemano + pp; pp:=pp+1;  i:=i+1; end
  60.                                  else begin pp:=pp-1; strettemano:=strettemano + pp;  j:=j+1;end;
  61.     if i=N then if j<N then for h:=j to N-1 do begin   pp:=pp-1; strettemano:=strettemano + pp;  end;         
  62.     strettemano:=strettemano+2*N; (*tutti salutano il padrone di casa quando arrivanoe quando escono*)
  63.     writeln(strettemano); 
  64. end.
  65.  
Success #stdin #stdout 0s 5288KB
comments (?)
stdin
copy 
4
6 8
2 4
1 5
3 7
stdout
copy 
16
https://ideone.com/9LL5cq
language:
Pascal (fpc 3.0.4)
created:
12 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!