Cod sursa(job #126437)
Utilizator | Ovidiu 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