Написать программы для решения найдите четырехзначные числа, сумма цифр которых равна 15. питон

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace ConsoleApplication1

{

class Program

{

static void Main(string[] args)

{

List res = new List();

for(int i=1000;i<10000; i++)

{

int[] sb=new int[4];

sb[0] = i / 1000;

sb[1] = (i / 100) % 10;

sb[2] = (i % 100)/10;

sb[3] = i % 10;

if (sb.Sum() == 15)

res.Add(i);

}

Console.WriteLine("Искомые числа:");

for (int i = 0; i < res.Count; i++)

Console.Write("{0} ", res[i]);

Console.ReadKey();

}

}

}

Объяснение:

"у семи нянек дитя без глаза." - 30 символов(" -2, . -1, пробел-5, букв-22) ⇒

30*2=60 байт

60*8=480 бит

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.