Журнал состоит из 16 двойных листов. на каком листе сума номеров страниц наибольшая

Решение:

а) . Номера страниц идут от 1 до 64. Страницы на двойных листах нумеруются так:

1-й – 1, 2, 63, 64;
2-й – 3, 4, 61, 62;
………………..;
16-й – 31, 32, 33, 34.

б) . Так как в последовательности, которую дают номера страниц двойного листа, суммы чисел, равноотстоящих от концов, одинаковы

(1+64, 2+63 – 1-й лист;
3+62, 4+61 – 2-ой лист;
………………………..;
31+34, 32+33 – 16-й лист) ,

а именно 65, то сумма чисел на любом двойном листе (65+65=130) одна и та же. Значит, нельзя указать двойного листа, у которого сумма чисел, обозначающая номера страниц наибольшая.

ответ: такого двойного листа в журнале нет.
Надеюсь

Var
   A,k,S,M:integer;
   P:real;
Begin
Write('Введите натуральное число: ');ReadLn(A);
k:=0;
S:=0;
P:=1;
While A>0 do
   Begin
   M:=A mod 10;
   if M = 3 then k:=k+1
   else
      Begin
      if M > 5 then S:=S+M;
      if M > 7 then P:=P*M;
      End;
   A:=A div 10;
   End;
WriteLn('k = ',k);
WriteLn('S = ',S);
WriteLn('P = ',P);
End.

Var
   A:integer;
   Max,Min,M:byte;
Begin
Write('Введите натуральное число: ');ReadLn(A);
Max:=0;
Min:=10;
While A>0 do
   Begin
   M:=A mod 10;
   if M<Min then Min:=M;
   if M>Max then Max:=M;
   A:=A div 10;
   End;
WriteLn('Min = ',Min);
WriteLn('Max = ',Max);
End.

#include <iostream>
#include <map>
#include <string>
using namespace std;

int main()
{
string mon;
map<string, int> months = {
{"январь", 1},
{"февраль", 2},
{"март", 3},
{"апрель", 4},
{"май", 5},
{"июнь", 6},
{"июль", 7},
{"август", 8},
{"сентябрь", 9},
{"октябрь", 10},
{"ноябрь", 11},
{"декабрь", 12}
};
cout << "Введите название месяца строчными буквами: ";
cin >> mon;
switch (months[mon]) {
case 2:
cout << "28 дней";
break;
case 1:
case 3:
case 5:
case 7:
case 8:
case 10:
case 12:
cout << "31 день";
break;
case 4:
case 6:
case 9:
case 11:
cout << "30 дней";
break;
}
cout << endl;
return 0;
}