Question

в школу привезли компьютеры. к сожалению на всех учителей их не хватает. поэтому было решено провести лотерею. Для этого было выбрано n натуральных чисел а1,а2,аn и число k (1<k<n). Компьютеры получают те учителя номера кабинетов которых делятся ровно на k из этих чисел. администрация школы заинтересовало то, на сколько равномерно распределены компьютеры. помогите выяснить какое число учителей номера кабинетов которых принадлежит промежутку от а до b получат компьютеры

Answer 1

var a:array [1..100] of int;
i,j,n,t,winners:integer;
Begin
    writeln("Введите кол-во делителей");
    read(n);
    writeln("Введите k");
    read(k);
    writeln("Введите делители");
    for i := 1 to n do
        read(a[i]);

    for i:= a to b do begin
        t:=0;
        for j:= 1 to n do
            if i mod a[j] = 0 then t:=t+1;
        if t=k then winners:=winners+1;
    end;
    writeln(winners);
End.