41

В полученной случайным образом последовательности N целых чисел…

pautina13 13 апреля 2023

В полученной случайным образом последовательности N целых чисел из промежутка [10; 1000] найти числа, у которых ровно 4 делителя.

категория: информатика

53

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.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...