№1255
http://acm.timus.ru/problem.aspx?space=1&num=1255
ЖМИ ДАЛЕЕ>>>
РЕШЕНИЕ:
PASCAL
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.
1255. Кладбище мафии
Ограничение времени: 1.0 секунды
Ограничение памяти: 16 МБ
Ограничение памяти: 16 МБ
Среди Уральской мафии распространён следующий обычай — гроб каждого крупного мафиози должны нести все его подчиненные. Чтобы подчиненные могли нести гроб не мешая друг другу, длина гроба (в метрах) в точности равна количеству подчиненных. Между прочим, согласно древним обычаям, ширина гроба у всех мафиози равна одному метру. Таким образом, длина гроба показывает авторитетность покойника. Кстати, уральские мафиози крайне щепетильны в вопросах авторитета, и не потерпят соседства с менее авторитетными мафиози. Следовательно, на одном кладбище можно хоронить только покойников с одинаковым авторитетом. Согласно мафиозному обычаю, кладбище мафии должно быть квадратным; длина кладбища выражается целым числом метров.
Ваша задача — подсчитать, сколько мафиози можно похоронить на кладбище данного размера. Гробы должны быть параллельны границам кладбища, гробы не должны налегать друг на друга и вылезать за пределы кладбища.
Исходные данные
Во входе содержится два числа — длина стороны кладбища N (1 < N < 10000) и длина гроба K (1 < K < 10000).
Результат
Вывести единственное целое число — наибольшее количество гробов размера 1×K, которые можно закопать на кладбище размера N×N.
Пример
| исходные данные | результат |
|---|---|
5 4 | 6 |
Автор задачи: Станислав Васильев, Алексей Лахтин
Источник задачи: Open collegiate programming contest for student teams, Ural State University, March 15, 2003
Источник задачи: Open collegiate programming contest for student teams, Ural State University, March 15, 2003