[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08
1255
Var N,K,St,Kl,Rn,Max,Nd: Longint;
Function Func(n,k:longint): Longint;
Var Kl: Longint;
Begin
  Kl:=0;
  While N>K do begin
    Inc(Kl,(N-K)*4);
    Dec(N,(N-K)*2);
  End;
  If N=K then Inc(Kl,N);
  Func:=Kl;
End;
Begin
  St:=0; Kl:=0;
  Readln(N,K);
  Rn:=N;
  While N>=K do begin
    Dec(N,K);
    Inc(Kl,St*K);
    Inc(Kl,St*K);
    Inc(Kl,K);
    Inc(St);
  End;
  If Rn>=K then begin
    Inc(Kl,(Rn div K)*N);
    Inc(Kl,((Rn-1) div K)*N);
  End;
  Max:=Kl;
  Kl:=0; N:=Rn;
  If K>(N div 2) then Kl:=Func(N,K)
  else begin
    Rn:=N;
    While ((N div 2)+(N mod 2))>K do begin
      Inc(Kl,(N+(N-K)));
      Dec(N,K);
    End;
    Inc(Kl,Func(N,K));
  end;
  If Max<Kl then Max:=Kl;
  Writeln(Max);
end.

Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008)
Просмотров: 848