Вычислить (1+sin0.1)(1+sin0.2) (1+sin10) для free pascal.

Var i,p: real; begin   i: =0.1;   p: =1;   while (i< =10) do     begin         p: =p*(1+sin(pi*i/180));         i: =i+0.1;     end;   writeln ('rezultat: ',p);   readln; end.

Все решение в рисунке

Закончились лекции, и студенты пошли домой (конъюнкция). в природе бывает, что солнце при дожде светит или прячется в тучах (дизъюнкция). в этом году летом мы либо поедем к морю, либо будем жить на даче (строгая дизъюнкция). если будет хорошая погода, то мы пойдем гулять (импликация). неверно, что 2 * 2 = 5 (инверсия). завтра мы не пойдем гулять (инверсия). я куплю ноутбук тогда и только тогда, когда получу премию (эквиваленция).