1. Төменде берілген бастапқы ақпаратты сығылған ақпарата ауыс алгоритмін құрыңдар (ақ түс - бос орын). Бастапқы ақпарат, символ (байт) - Сығылған ақпарат, символ (байт) -

function Fact(n:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 2 to n do

    rez := rez * i;

  Fact := rez;

end;

 

function Pow(a, x:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to x do

    rez := a * rez;

  Pow := rez;

end;

 

var

  a, b, n, i:integer;

  F:real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('n = '); readln(n);

  F := 0;

  for i := 1 to n do

    F := F + Fact(n - i + 1)/(Pow(a,i) - Pow(b, i));

  writeln('F = ', F);

end.

 

А на каком языке сделать? 

program test; 

var 

    n, m: integer; 
    max: integer; 
    count: integer; 
    number: integer; 
    i: integer; 

function GetDividersCount(number: integer): integer; 
var 

    limit: integer; 
    count: integer; 
    i: integer; 

begin 

    limit := number div 2; 
    count := 0; 

    for i := 1 to limit do 

        if number mod i = 0 then 

            count := count + 1; 

    result := count; 

end; 

begin 

    write('Enter range: '); 
    read(n, m); 

    max := 0; 

    for i := n to m do 
    begin 

        count := GetDividersCount(i); 

        if max < count then 
        begin 

            max := count; 
            number := i; 

        end; 

    end; 

    writeln('Result: ', number); 

end.