Запустите интергрирование среду порграмы составьет програмы код для дан ридус круга = 2 поредилите диаметр круга

1. 1v1=1 ,  1∧0=0 ,  ¬0=1

2. ¬А=1, ВvС=0, Д∧С=1

Объяснение:

1

AvВ, если А = 1, В = 1           1v1=1

A ∧ B, если A = 1, B = 0        1∧0=0

¬ А, если А= 0                      ¬0=1

2.     1. инверсия – это логическое отрицание, в данном случае высказывание А не истинно, значит не(не истина)=истинна

2. Дизъюнкция – логическое сложение будет истинным тогда, когда хотя бы одно исходное высказывание истинно, так как В-ложь и С ложь, то ВvС=0

3. Конъюнкция – логическое умножение будет истинным тогда, когда оба исходных выражения истинны. Т.к. Д и С истинны, то и результат истина, т.е. =1

Язык программирования Pascal ABC
var n,k,i,j,d,c:integer;
label 1,2;
begin
1:writeln('Количество месяцев в календаре планеты Мульти:');
readln(n);
if (n>109)or(n<1) then
begin
writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.');
goto 1;
end;
2:writeln('Номер дня на который приходится первое число первого месяца нового года:');
readln(k);
if (k>7)or(k<1) then
begin
writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.');
goto 2;
end;
d:=k;
for i:=1 to n do
begin
for j:=1+(k-1) to 30 do
begin
if (d=5)and(j=13) then c:=c+1;
d:=d+1;
if d>7 then d:=1;
end;
k:=1;
end;
writeln('Количество несчастливых дней в этом году: ',c);
end.