Напишите программку на языке программирования Pascal. Дано естественное число

Напишите программку на языке программирования Pascal. Дано натуральное число m.
Вычислить:
 \frac1sin1 + \frac1sin2 + ... + \frac1sinm

Задать свой вопрос
1 ответ
Program sinys;
var m,i:integer;x:real;mas:array [1..1000] of integer; 
 begin
 x:=0; 
 readln(m); 
 for i:=1 to m do  
   x:=x+(1/sin(i)); 
 writeln(x)
 end.
Антон
Не заметил :)
Есения
Спасибо громадное
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт