using System;
namespace Global
{
class Program
{
public string[] range = new string[2];
static void Main(string[] argv)
{
Program Obj = new Program();
Obj.Calculate();
}
public void Calculate()
{
string iN = Console.ReadLine();
int n = Convert.ToInt16(iN);
Console.WriteLine("Введите диапазон (2 числа через пробел)");
range = (Console.ReadLine().Split(' '));
int s = 0;
int b = getArrayItem(1);
for (int a = getArrayItem(0); a<b+1; a++)
{
if (n % a == 0)
{
s++;
}
}
Console.WriteLine(s);
Console.ReadKey();
}
public int getArrayItem(int item)
{
return Convert.ToInt16(range[item]);
}
}
}
Объяснение:
const n=10;
Var a:array[1..n] of integer; i,j,b:integer;
Begin
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]<a[i] then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
for i:=1 to n do write(a[i],' ');
End.