Истина это true почти во всех языках программирования,
а ложь это false.
суждение - это ввод данных,
а умозаключение - вывод данных.
A: integer;
begin
read(a);
if (a > 99) and (a < 1000) and (not odd(a)) then
write('true')
else
write('false');
end.
Обозначения:
A=x∈A
B=x∈{2;4;...;12}
C=x∈{3;6;...;15}
------------------------------------------
B→((C*¬A)→¬B)=1
¬B+¬(C*¬A)+¬B=1
¬B+¬C+A=1
A+( ¬B+¬C )=1 (тк A+¬A=1, то ¬A=¬B+¬C )
¬A=¬B+¬C
¬¬A=¬(¬B+¬C)
A=B*C ( A - состоит из общих элементов В и С)
А={6;12}
6+12=18
ответ 18
Программа с НОД
var t,t1,x,y,z:integer;
Function NOD(a, b: integer): integer;
Begin If a=b then NOD:=a
else if a>b then NOD:=NOD(a-b, b)<span>
Else NOD:=NOD(a, b-a);
</span>End;
begin
writeln('Введите 2 числа');
readln(x,y);
t:=NOD(X,Y);
writeln(t);
end.<span>
</span>