Задать вопрос
16 сентября, 20:06

Два множества: первое все простые делители некоторого целого числа N и второе все простые делители того же числа. Вывести на экран делители которые не являются простыми. (Паскаль)

+2
Ответы (1)
  1. 16 сентября, 20:35
    0
    Замечание: в старых версиях паскаля вместо integer нужно использовать byte.

    var n, i:integer;

    s1, s2: set of integer;

    function prost (n:integer) : boolean;

    var j, m:integer;

    begin

    m:=0;

    for j:=2 to trunc (sqrt (n)) do

    if n mod j = 0 then inc (m) ;

    prost:=m=0;

    end;

    begin

    readln (n) ;

    s1:=[1]; s2:=[];

    for i:=2 to n do

    if n mod i=0 then

    begin

    s1:=s1+[i];

    if prost (i) then s2:=s2+[i];

    end;

    writeln ('Все делители:') ;

    for i:=1 to n do

    if i in s1 then write (i,' ') ;

    writeln;

    writeln ('Все простые делители:') ;

    for i:=1 to n do

    if i in s2 then write (i,' ') ;

    writeln;

    writeln ('Делители, которые не являются простыми:') ;

    for i:=1 to n do

    if i in (s1-s2) then write (i,' ') ;

    end.

    Пример:

    340

    Все делители:

    1 2 4 5 10 17 20 34 68 85 170 340

    Все простые делители:

    2 5 17

    Делители, которые не являются простыми:

    1 4 10 20 34 68 85 170 340
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Два множества: первое все простые делители некоторого целого числа N и второе все простые делители того же числа. Вывести на экран делители ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Паскаль. 1. вывести на экран все четные числа от 1 до n. 2. вывести на экран все трехзначные числа. 3. вывести на экран четырехзначные числа оканчивающийся на 7. 4. вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.
Ответы (1)
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)
1. for + random a. вывести случайное количество случайных чисел b. вывести на экран 10 случайных чисел c. вывести на экран 10 случайных чисел, значение которых лежит в отрезке [0,10] d.
Ответы (1)
1. Пользователем вводится целое число. Вывести на экран последовательность целых чисел от единицы до этого числа. 2. Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки. 3.
Ответы (1)