Выполнить прикрепленное задание.

Выполнить прикрепленное задание.

Задать свой вопрос
1 ответ

program summa;

var

i, n:integer;

s, k:real;

begin

 writeln('введите число n=');

 read(n);

 s:= 0;

 k := 0;

 for i := 1 to n do

 begin

   k:= k + sin(i);

   s:= s + 1/k;

 end;

 writeln('Сумма S= ',s:0:2);

 readln;

end.


Ульяна Марташова
чтоб округлить
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт