В полученной случайным образом последовательности N целых чисел из промежутка [10;1000] найти числа, у которых ровно 4 делителя.
Answers & Comments
BlackW1nd
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.
Answers & Comments
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.