В полученной случайным образом последовательности N целых чисел из промежутка [10;1000] найти числа, у которых ровно 4 делителя.
10-11 класс
|
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.
Единицу и само число делителем считать?
Другие вопросы из категории
1. Вычислить произведение последних трех чисел не кратных 5 в диапазоне
от 20 до 50.
Сформировать массив С по следующему правилу:
С[
Читайте также
элементов, заполненный случайным образом числами из промежутка [-10,60]. Удалить из него все элементы, в
которых последняя цифра нечетная, а само число кратно 3.
Помогите пожалуйста решить в C# (Си шарп)
последовательности.
Программу реализовать с помощью трех циклических алгоритмов:
1) Цикл со счетчиком for
2) Цикл с предусловием while
3) Цикл с постусловием repeat
В программе предусмотреть ситуацию, когда пользователь вводит значение B ‹ A
Пример 1:
Пользователь вводит числа A=5, B=10. Сумма чисел: 5+6+7+8+9+10. Вывод на экран: 45
Пример 2:
Пользователь вводит числа A=7, B=4. Сумма чисел: 4+5+6+7. Вывод на экран: 22
Пример 3:
Пользователь вводит числа A=5, B=5. Сумма чисел: 5. Вывод на экран: 5