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