Cod sursa(job #574937)
| Utilizator |  Marin Tiberiu tibi9876 |
Data | 7 aprilie 2011 18:28:23 |
|---|---|---|---|
| Problema | Mins | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.22 kb |
var s:qword;
x,y,j:longint;
begin
assign(input,'mins.in');reset(input);
assign(output,'mins.out');rewrite(output);
readln(x,y);
s:=(x-1)*(y-1);
for j:=2 to y-1 do s:=s-(x-1) div j;
writeln(s);
end.
