Const n=?; {Вместо "?" вставить значение} Var a:array[1..n] of integer; i:integer;
Function del(x:integer):integer; {Функция для определения кол-ва делителей} var i,k:integer; begin k:=0; for i:=1 to x do if (x mod i)=0 then k:=k+1; del:=k; end;
Begin randomize; for i:=1 to n do a[i]:=random[10,1000]; for i:=1 to n do if del(a[i])=4 then write(a[i],' '); End.
К концу XVIII века в английском обществе сложились благоприятные условия для развития промышленности. Во-первых, государство стало защищать частную собственность, и буржуазия могла не опасаться конфискаций. Во-вторых, высокого уровня достигла торговля, что позволяло без проблем ' сбывать промышленную продукцию. В-третьих, появилось достаточное количество наемных рабочих и исчез принудительный труд (никаких крепостных в Англии того времени уже не было). В сельском хозяйстве сложились рыночные отношения; земля стала товаром, а товарное хозяйство окончательно вытеснило натуральное. Крупные фермы не нуждались в большом количестве рабочих, и тем самым обеспечили дешевую рабочую силу для промышленности.
К концу XVIII века в английском обществе сложились благоприятные условия для развития промышленности. Во-первых, государство стало защищать частную собственность, и буржуазия могла не опасаться конфискаций. Во-вторых, высокого уровня достигла торговля, что позволяло без проблем ' сбывать промышленную продукцию. В-третьих, появилось достаточное количество наемных рабочих и исчез принудительный труд (никаких крепостных в Англии того времени уже не было). В сельском хозяйстве сложились рыночные отношения; земля стала товаром, а товарное хозяйство окончательно вытеснило натуральное. Крупные фермы не нуждались в большом количестве рабочих, и тем самым обеспечили дешевую рабочую силу для промышленности.
Var a:array[1..n] of integer;
i:integer;
Function del(x:integer):integer; {Функция для определения кол-ва делителей}
var i,k:integer;
begin
k:=0;
for i:=1 to x do
if (x mod i)=0 then k:=k+1;
del:=k;
end;
Begin
randomize;
for i:=1 to n do
a[i]:=random[10,1000];
for i:=1 to n do
if del(a[i])=4 then write(a[i],' ');
End.