Если в вертикальной ориентации у значка положение 4-3, то при сквозной нумерации (слева направо, сверху вниз) получим номер этого значка 3*4+3=15
При горизонтальной ориентации у значка с 15 номером будут координаты 3-5
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var ЕстьКусков,НадоКусков:integer;
Readln(ЕстьКусков,НадоКусков);
var Длины:=ReadArrInteger(ЕстьКусков);
var ОбщаяДлина:=Длины.Sum;
if НадоКусков>ОбщаяДлина then Writeln(0)
else begin
var ДлинаКуска:=ОбщаяДлина div НадоКусков;
repeat
if Длины.Select(Кусок->Кусок div ДлинаКуска).Sum >=НадоКусков then break
else ДлинаКуска-=1;
until false;
writeln(ДлинаКуска)
end
end.
<u>Пример</u>
4 11
802 743 457 539
200
Var a,b:real;
begin
readln(a);
if frac(a)>0.5 then
b:=int(a)+1
else b:=int(a);
writeln(b);
end.
F.C.B 0000000000000000000000000000000000000