Інформатика. Можно і без пояснень

1) 3

2) 7

3) 4

Объяснение:

как и просил без объяснений

25
[0, 0, "a", 1]
[1, 1, "b", 2]
[1, 2, "bb", 3]
[2, 2, "b", 4]
[1, 3, "bbb", 5]
[2, 3, "bb", 6]
[3, 3, "b", 7]
[1, 4, "", 8]
[2, 4, "bbb", 9]
[3, 4, "bb", 10]
[4, 4, "b", 11]
[1, 5, "", 12]
[2, 5, "", 13]
[3, 5, "bbb", 14]
[4, 5, "bb", 15]
[5, 5, "b", 16]
[0, 6, "aa", 17]
[6, 6, "a", 18]
[6, 7, "aa", 19]
[7, 7, "a", 20]
[6, 8, "aaa", 21]
[7, 8, "aa", 22]
[8, 8, "a", 23]
[5, 9, "baaab", 24]
[9, 9, "b", 25]

s = "aaaab"
n = 0
for r in 0...s.size
    for l in 0..r
        t = s[l..r]
        if t.reverse == t
            n += 1
            p [l,r,t,n]
        end
    end
end

Вариант №1

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
  var n:=ReadInteger('Размер массива: ');
  var a:=ArrRandom(n);
  a.Println;
  var p:=1;
  for var i:=n-4 to n-1 do begin
    p:=p*a[i];
  end;
  println(p);
end.

Тестовое решение:

Размер массива:  10
26 65 88 43 49 93 67 40 16 84
3601920

Вариант №2

const k = 100;
var a:array [1..k] of integer;
i,p,n:integer;
begin
  p:=1;
  readln(n);
  for i:=1 to n do begin
    a[i]:=random(21)-10;
    write(a[i]:4);
    if i>n-4 then p:=p*a[i];
  end;
  writeln;
  writeln(p);
end.

Тестовое решение:

10
  -8   6   1   3   1 -10  -3   2   2   2
-24