Регистрация
niklysov2015
29.03.2022 13:30
Информатика
Есть ответ 👍

Сделайте что можете Сделайте что можете

106
198
Посмотреть ответы 2

Ответы на вопрос:

Данил22335
Данил22335
4,7(27 оценок)

2.инверсия (отрицание, логическое не),

конъюнкция (логическое и),

дизъюнкция (логическое или),

импликация (следование),

эквивалентность (тождество).

Объяснение:

polina1165
polina1165
4,7(29 оценок)
Замечание: в старых версиях паскаля вместо 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 

Популярно: Информатика