Дано натуральное число n. вычислить s=1/sin1+1/sin2++1/sinn. надо написать на паскале

Var s: real;     i, c: integer; begin       readln(c);       for i : = 1 to c do           s : = s + 1 / sin(i);       writeln(s); end.=)

Program spos; uses crt; var numb: array [1..100] of byte; // для последовательности чисел i,f: integer; //счетчик и переменная в качестве флага begin randomize; f: =0; for i: =1 to 100 do numb[i]: =random(101); // задает последовательность for i: =1 to 100 do begin write(',',numb[i]); // вывод на экран последовательность(можно удалить) if (numb[i]=77)then f: =1; // в случае удачной проверки f: =1, в противном останется 0 end; if f=0 then writeln('yes') else writeln('no'); end. program spos; uses crt; var numb: array [1..100] of byte; // для последовательности чисел i,f: integer; //счетчик и переменная в качестве флага begin randomize; f: =0; for i: =1 to 100 do begin numb[i]: =random(101); // задает последовательность write(' ',numb[i]); //вывод на экран, можно удалить end; writeln; i: =0; repeat i: =i+1; if (numb[i]=77)then f: =1; // в случае удачной проверки f: =1, в противном останется 0 until i< 100; if f=0 then writeln('yes') else writeln('no'); end.

Человек принимает и обрабатывает информацию,а именно: звуковую-слушает                                                                                         изображение-видит                                                                                         осязание-чувствует                                                                                       обоняние-различает запхи.