Пусть пару имеют 2n камней, тогда без пары тоже 2n камней. Каждая пара и каждый непарный камень занимают один столбец, поэтому всего будет занято n + 2n = 3n столбцов.
Всего доступно столбцов 110/2 = 55, поэтому 3n ≤ 55, n ≤ 18.
Максимальному n = 18 соответствует максимальное количество камней 4n = 72.
1)
// PascalABC.NET 3.3
begin
var n:=readInteger;
writeln(SeqGen(n,2,x->x+2).Sum);
end.
2)
var n,s,i:integer;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+2*i;
writeln(s);
end.
Пример:
5
30
ЯП, везде, для всего практически, простой.
begin
var n := 10;
var x := 5;
var a := Arr(0, 1, 2, 3, 4, 5, 6, 7, 8, 9);
var b := a.Where(y -> y < x).ToArray;
b.Println;//0 1 2 3 4
end.
var a: integer;
begin
readln(a);
if a<0 then a:=(-1)*a;
if (a mod 2<>0) and (a>9) and (a<100) then
write(a,' - нечетное двузначное число') else
write(a,' - не является нечетным двузначным числом');
end.