В школу привезли компьютеры. к сожалению на всех учителей их не хватает. поэтому было решено провести лотерею. Для этого было выбрано n натуральных чисел а1,а2,аn и число k (1 меньше k меньше n). Компьютеры получают те учителя ...
В школу привезли компьютеры. к сожалению на всех учителей их не хватает. поэтому было решено провести лотерею. Для этого было выбрано n натуральных чисел а1,а2,аn и число k (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.
Не нашли ответ?
Похожие вопросы