20 кто правильно напишет ограничение по времени на тест1 секунда ограничение по памяти на тест256 мегабайт ввод стандартный ввод вывод стандартный вывод амира получила в подарок прямоугольник в свой долгожданный день рождения. прямоугольник имеет размеров w x h, где w и h - целые числа. мухитали решил подарить ей еще один подарок - два квадратика. увидев что теперь у нее есть целых 3 фигуры, она решила их использовать для создания нового искусства вместе с мухитали. они решили приклеить квадратики на ее прямоугольник таким образом, чтобы они не пересекались между собой по ненулевой площади дабы избежать смешивания цветов, а так же не выходили за пределы самого прямоугольника. для удобства они могут резать квадратики до любых размеров (даже нулевых), главное чтобы они имели размеры не больше чем параметры оставшегося прямоугольника и при этом не потеряли свойства квадрата. для большего удовольствия, амира и мухитали хотят чтобы эти два квадратика покрыли как можно большую площадь ее прямоугольника. ей найти это значение. входные данные в единственной строке входных данных находятся два целых числа w и h (1≤w,h≤109) - параметры прямоугольника. выходные данные выведите одно целое число - максимальную площадь подпрямоугольника, которую амира и мухитали смогут покрыть с двух квадратиков. система оценки данная содержит четыре , в каждой выполняются ограничения из условий: 1. 1≤w,h≤5. оценивается в 29 . 2. 1≤w,h≤100. оценивается в 21 . 3. 1≤w,h≤104. оценивается в 20 . 4. 1≤w,h≤109. оценивается в 30 .
дешифровки:
Const sh = '_.,';
Var
St : String;
i : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
For j:=1 to Length(S) do
Begin
n:=Pos(S[j],sh);
If n>0 then
Begin
n:=n+k;
While n>Length(sh) do n:=n-Length(sh);
While n<=0 do n:=n+Length(sh);
S[j]:=sh[n];
end
end;
DeCode:=S;
end;
Begin
St:='ЗЫФЙГФШРЦ . ШД';
Writeln(Decode(St,sh,-6));
//For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.
Const width = 10
Sub Ìàêðîñ1()
Dim Sum(heigth - 1, width - 1)
Dim Product(heigth - 1, width - 1)
For i = 0 To heigth - 1
For j = 0 To width - 1
Sum(i, j) = i + j
Product(i, j) = i * j
Next j
Next i
Call Show(Sum, 0, 0)
Call Show(Product, 0, 12)
End Sub
Sub Show(ByRef m, dx, dy)
For i = 0 To heigth - 1
For j = 0 To width - 1
ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
Next j
Next i
End Sub