Ответы на вопрос:
Замечание: в старых версиях паскаля вместо 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
Популярно: Информатика
-
е7гроошишгини17.02.2022 00:52
-
Gryzdik15.01.2022 15:21
-
Vanya140710.09.2021 01:01
-
olga052012.08.2020 07:00
-
Belay2827.05.2023 10:38
-
algebraigeometria127.02.2021 14:33
-
blin42p00v7h15.08.2022 21:29
-
Danila555502.01.2021 03:33
-
yarovikova198113.08.2020 02:13
-
mejevov29010723.01.2020 09:29