Решить, надо найти количество делителей натурального числа, больших к (к вводить с клавиатуры (только через операторы if и for)

Program del; uses crt; var n,k,i,m: integer; begin write(  'введите число n='  ); readln(n); write(  'введите ограничитель делителей (k< n) k='  ); readln(k); for i: =k+1 to n do     if   n mod i = 0   then m: =m+1; writeln(  'количество делителей числа n='  ,n,  '   равно m=',  m); readln end.

class Program

   {

       struct cr

       {

           public double x, y, l;

       };

       static void Main(string[] args)

       {

           cr[] pn = new cr[3];

           double p = 0;

           for (int i = 0; i < 3; i++)

           {

               Console.Write("Введите X{0}:", i + 1);

               pn[i].x = Double.Parse(Console.ReadLine());

               Console.Write("Введите Y{0}:", i + 1);

               pn[i].y = Double.Parse(Console.ReadLine());

           }

           for (int i = 0; i < 3; i++)

           {

               if (i < 2)

                   pn[i].l = Math.Sqrt((pn[i].x - pn[i + 1].x) * (pn[i].x - pn[i + 1].x) +

                                       (pn[i].y - pn[i + 1].y) * (pn[i].y - pn[i + 1].y));

               else

                   pn[i].l = Math.Sqrt((pn[i].x - pn[0].x) * (pn[i].x - pn[0].x) +

                                       (pn[i].y - pn[0].y) * (pn[i].y - pn[0].y));

               p += pn[i].l;

           }

           Console.WriteLine("Периметр P={0}", p);

           p /= 2;

           Console.WriteLine("Площадь  S={0}",  

               Math.Sqrt(p * (p - pn[0].l) * (p - pn[1].l) * (p - pn[2].l)));

           Console.ReadKey();

       }

   }

Объяснение:

1

var

mas:array[1..100] of integer;

i,n:integer;

en,out:text;

res:real;

qw,qwe:string;  

begin

 n:=0;

 i:=1;

 write('Введите полный путь к импортируемому файлу: ');readln(qw);

 write('Введите полный путь к экспортируемому файлу: ');readln(qwe);

 assign(en,qw+'.txt'); assign(out,qwe+'.txt');  

 reset(en); rewrite(out);

 while not Eof(en) do    

 begin

 readln(en,mas[i]);      

 n:=n+mas[i];                

 inc(i);        

 end;

   res:=(n/(i-1));  

   write(out,res);  

   close(out);      

   close(en);

 end.

Там во вторую тупо добавляешь:

 max:=-100001;

 min:=100001;

if (mas[i]<0) and (mas[i] mod 2 = 0) and (mas[i]<min) then min:=mas[i];

 if (mas[i]>0) and (mas[i] mod 2 = 1) and (mas[i]>max) then max:=mas[i];  

if (max=-100001)or(min=100001) then writeln(out,'ERROR: please, rewrite yor file')

 else  

 begin

   writeln(out,min);

   writeln(out,max);  

Тоже такие же задачи решал)) лол). Ты не из 604??)))