Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
linka737
09.04.2022 16:07 •
Информатика
Найдите сумму sin(1)+sin(2)+) и число слагаемых до первого отрицательного слагаемого.
Показать ответ
Ответ:
ВИКУСИК4455
21.06.2020 11:28
Var x: real;
i, m: integer;
begin
readln(m);
for i := 1 to m do
if (sin(i) >= 0) then
x := x + sin(i)
else
break;
writeln(x);
end.
Должно быть, так)
0,0
(0 оценок)
Популярные вопросы: Информатика
Kachelda
22.08.2022 09:18
Для составления цепочек разрешается использовать бусины пяти типов, обозначаемых буквами а, д, г,о,у.каждая цепочка должна состоять из трёх бусин, при этом должны соблюдаться...
Настя456654123321
30.12.2022 15:52
Напишите программу,что бы закрасить клетки...
Beckonechnost
20.03.2023 07:51
Что из перечисленного?...
папа11111111111111
28.08.2021 14:43
Раз после бана кек чебурек...
трифон1
09.01.2020 23:13
с кодами для с++ Напишите программу, которая сообщает, делится ли введенное число без остатка на 7.Напишите программу, которая проверяет принадлежность числа диапазону от...
anzhelikamilan
16.04.2020 13:38
Преобразуйте число 121 в двоичную, восмеричную систему счисления с проверкой очень...
Арчи171
04.04.2023 13:18
выполнить задания по информатике!...
vazovskiy2013
10.07.2021 22:02
Что из перечисленного?...
Columbos
13.06.2020 10:12
2. Напишите программу, которая запрашивает у пользователя координаты точки и затем рисует квадрат размером 10х10, где введенная точка является координатой левого верхнего...
nikakim03
26.08.2022 23:49
Информационный обьем текста , набранного в кодировке unicode ( 1 символ закодирован 2 байтами) , равен 1,5 Мбайт Сколько символов в этом тексте?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, m: integer;
begin
readln(m);
for i := 1 to m do
if (sin(i) >= 0) then
x := x + sin(i)
else
break;
writeln(x);
end.
Должно быть, так)