Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
pinkiepieanddash
14.10.2021 04:19 •
Информатика
Дано натуральное число n. вычислить, используя while и repeat: 1/sin1+1/(sin1+sin2)++1/(sin1+sin2+sinn)
Показать ответ
Ответ:
vladimirnishta1
08.10.2020 21:12
Begin
var n := ReadlnInteger('n =');
var i := 1;
var s1,s2:real;
while i <= n do
begin
s1 += Sin(i);
s2 += 1/s1;
i +=1;
end;
Write('S = ',s2)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
werwedsgfdg
06.04.2023 02:54
Последовательность хэмминга образует натуральные числа, не имеющие других простых делителей, кроме 2,3,5. найти: первы n элементов этой последовательности.сумму первых...
Patara1986
06.04.2023 02:54
Во время битвы флэш кидает в профессора зума шаровую молнию. чтобы создать новую молнию, ему потребуется x секунд. сколько шаровых молний он сможет выпустить в зума...
guardian009888
07.08.2020 14:11
Перестановка элементов массива массив a(10) состоит из чисел 7, 8 и 9. переставить элементы массива таким образом, чтобы сначала стояли все числа 8, потом – 7, а в...
tsukikokawaii
07.08.2020 14:11
Супермен пошел учиться на курсы программистов. на зачете ему попалась : дата некоторого дня определяется тремя натуральными числами - g (год), m (месяц), d (день)....
чапмит
07.08.2020 14:11
Имеется часть катушки с автобусными билетами. составить программу находящую номера счастливых билетов на катушке, если меньший номер билета на катушке - n, больший...
жапрожак1
07.08.2020 14:11
Чтобы создать новую молнию, ему потребуется x секунд. сколько шаровых молний он сможет выпустить в зума за n минут и m секунд....
diana29012005
20.07.2021 10:16
Халк плавал в бассейне размером n x m метров и устал. в этот момент он обнаружил, что находится на расстоянии х метров от одного из длинных бортиков ( не обязательно...
Matveystori
06.02.2022 04:27
программу: сельхозпредприятие реализует продукцию оптовым покупателям. существует базовая цена реализации на каждый вид продукции. в зависимости от количества реализуемой...
Vika7928728272
01.10.2021 21:53
Вкакой записи чисел ошибка 1) 5361 (в 8меричной), 2) 0123 (в 4) 3) 16с ( в 14) 4) 761 (в 7)...
Eugene032
07.06.2020 02:33
Pascal abc имеется массив данных о k работающих в фирме: фамилия, имя, отчество, адрес(улица, дом, квартира) и дата поступления на работу(месяц, год). во второй массив...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n := ReadlnInteger('n =');
var i := 1;
var s1,s2:real;
while i <= n do
begin
s1 += Sin(i);
s2 += 1/s1;
i +=1;
end;
Write('S = ',s2)
end.