1) В первом задании просто берёшь и переводишь, грубо говоря, всё числа от 0 до 25 с 10 системы, в 6 и смотришь какие числа начинаются на 4. Например Тут только три числа получилось.То есть ответ 4,40,41
2)Мы знаем что Поскольку то и . Предположим что . Просто переведём в десятичное число, и получаем ответ 8. 3) Третье задание точно такое как и 2, только сформулировано немножко по другому. Опять же соответственно . Глядя на разницу между 65 и 311, можно предположить, что N как минимум в 2 раза меньше 8. Поэтому допустим N=4. И проверяем . То есть . Это именно то, что нам нужно. ответ . Надеюсь хоть чем то
Поскольку 
то и 
. 
. Просто переведём 
в десятичное число, и получаем 
соответственно 
.
. То есть 
. 
n, sum, max: integer;
begin
sum:=0;
write('Введите натуральное число n: ');
readln(n);
a := new integer[n];
write('Введите действительные числа: ');
for var i:=0 to a.Length-1 do
read(a[i] );
write('Сумма равна: ');
for var i:=0 to a.Length-1 do
sum:=sum+a[i];
writeln(sum);
write('Максимальный элемент равен: ');
max := a[0];
for var i:=0 to a.Length-1 do
if a[i]>max then
begin
max := a[i];
end;
writeln(max);
write('S = (А1+ А2+ …,+ Аn) + max (А1, А2, …, Аn) = ');
sum:=sum+max;
write(sum);
end.