Написать программы для решения найдите четырехзначные числа, сумма цифр которых равна 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();

}

}

}

Объяснение:

например провели 5 измирений плотности раствора. пусть 1 первое измирение n1, второе-n2,   3-n3, 4- n4,5- n5. тогда програма будет виглядеть так:

program n1;

uses crt;  

var n1,n2,n3,n4,n5,s: real;

begin

              read(n1,n2,n3,n4,n5);

              s: =(n1+n2+n3+n4+n5)/5;

              write('s=',s);

end.

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа