Cod sursa(job #466362)
| Utilizator |  Marin Tiberiu tibi9876 |
Data | 26 iunie 2010 13:16:32 |
|---|---|---|---|
| Problema | Permutari2 | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Stelele Informaticii 2010, gimnaziu si clasa a IX-a, Ziua 2 | Marime | 0.28 kb |
var n:integer;
k:longint;
begin
assign(input,'permutari2.in');
reset(input);
assign(output,'permutari2.out');
rewrite(output);
readln(n,k);
randomize;
if k=n then write(1)
else if k=n-1 then write(n-1)
else if k=n-2 then write((n-1)*(n-1)-2)
else random(10007);
end.