[питон]найти сумму всех трехзначных чисел, которые делятся на 3 и является полиндром

X=0
n=100
while n<1000:
    if str(n)[:1]==str(n)[-1] and n%3==0:
        x+=n
    n+=1
print(x)

Результат выполнения программы:
Python 3.4.2 (v3.4.2:ab2c023a9432, Oct  6 2014, 22:15:05) [MSC v.1600 32 bit (Intel)] on win32
Type "copyright", "credits" or "license()" for more information.
>>> RESTART
>>>
16803
>>>

           int[,] a = { { 1, 2, 17, 16, 6, 455, 867 }, { 1, 2, 17, 8, 5757, 455, 867 }, { 1, 2, 17, 8, 5757, 455, 867 }, { 1, 2, 17, 8, 16, 455, 867 }, { 1, 2, 17, 8, 5757, 455, 867 } }; //естественно тут ваш двухмерный массив.

           int i = 0;

           int s = 0;

           for (int j = 0; j < a.GetLength(1); j++)

           {

               var t = a[1, j];

               if (t != 0 & t > 15) { i++; }

           }

           Console.WriteLine(i);

           i = 0;

           for (int j = 0; j < a.GetLength(0); j++)

           {

               var t = a[j, 4];

               if (t%2!=0) { i++; s += t; }

           }

           if (i != 0) { Console.WriteLine(s / i); }

           i = 0;

           s = 0;

           for (int j = 0; j < a.GetLength(1); j++)

           {

               var t = a[3, j];

               if (t % 4 == 0) { i++; s += t; Console.WriteLine(t); }

           }

           if (i != 0) { Console.WriteLine(s / i); }

pascal

Объяснение:

var i, n, mysign, nsign: integer;

   ismon: boolean;

   a: array of integer;

begin

 Write('Введите размер массива: '); ReadLn(n);

 SetLength(a, n);

 WriteLn('Введите Элементы массива: ');

 for i := 0 to n - 1 do ReadLn(a[i]);

 mysign := sign(a[1] - a[0]);

 if mysign >= 0 then mysign := 1;

 ismon := true;

 for i := 2 to n - 1 do

 begin

   nsign := sign(a[i] - a[i - 1]);

   if nsign >= 0 then nsign := 1;

   if nsign <> mysign then ismon := false;

 end;

 if ismon then WriteLn('Массив монотонный') else WriteLn('Массив не монотонный');

 

end.