в школу привезли компьютеры. к сожалению ** всех учителей их не хватает. поэтому было...

Question

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

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.