Определить сколько трехзначных чисел кратны m вывести их на экран

Это паскаль ? если да,то вот: кратные m- ((a mod m)=0 program primer; uses crt; var a,k,n,i: integer; begin k: =0; read(n); for i: =1 to n do begin read(a); if ((a< 1000) and (a> 99) and ((a mod a)=o) then begin write(a); k: =k+1; end; end; write(k) end.

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();

}

}

}

Объяснение:

Объяснение:

Первыми переправляются дети.  

Сын возвращается к маме-папе.  

Папа едет на берег к дочери, потом дочь едет за братом и возвращается с ним к папе.  

Сын едет к маме, отдает ей лодку, чтобы она переплыла к папе и дочери.  

После того, как мама переправилась, дочь садится в лодку и едет к брату, подбирает его, и вместе они едут к родителям.  

Дочь остается с родителями, а сын едет к рыбаку, отдает ему лодку.  

Рыбак едет к родителям и высаживается.  

Дочь садится и едет за братом, привозит его с собой обратно (наконец-то вся семья снова вместе), они отдают лодку рыбаку.  

Лодка пересекла реку 13 раз.