Cod sursa(job #126437)

Utilizator juniorOvidiu Rosca junior Data 22 ianuarie 2008 04:28:10
Problema Stergeri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.49 kb
var
	fi, fo : text;
  n, m, k, i, s, d, suma : longint;
  mica : boolean;
begin
	assign(fi,'stergeri.in'); reset(fi);
  assign(fo,'stergeri.out'); rewrite(fo);
  readln(fi, n, m, k);
  mica := true;
  for i := 1 to m do
  	begin
    	readln(fi, s, d);
      if s <= k then
      	mica := false;
      inc(suma,d-s+1);
    end;
  if mica then
    writeln(fo, k)
  else
  	writeln(fo, suma+k);
  close(fi); close(fo);
end.

123456789012345678901234567890
1567890

3+20+3=26