Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Самолеееет555
06.09.2021 00:34 •
Информатика
Дано натуральное число n (n< 10). написать программу, для вычисления суммы вида 0,1+0,2+0,3+… (n слагаемых). использовать цикл
Ответ:
NokuShinama
08.10.2020 19:52
PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s+=1/i;
Writeln('S=',s)
end.
Пример
n= 10
S=2.92896825396825
0,0
(0 оценок)
Ответ:
Pawel10hor
08.10.2020 19:52
Int N;
//необходимо инициализировать переменную N
double sum = 0;
for(int i=1; i<=N; i++)
sum += 0.1 * i;
//результат в переменной sum
0,0
(0 оценок)
Популярные вопросы: Информатика
dmitryveris
27.04.2022 04:56
Написать программу, которая вводит натуральное число и выводит следующее меню: введите номер : 1-вычисление квадратного корня; 2-возведение в квадрат; 3-вычисление...
mixrasp2002
27.04.2022 04:56
Определите свою скорость передачи информации при разговоре, при записи текста...
ПомошницаНомер1
01.01.2021 19:22
Что может сохранить,как можно больше информации. ! тол ко как можно больше)...
Tima22890
05.09.2021 15:37
Запишите единицы измерения информации в виде степеней двойки: 512 кбайт = = 6. 128 мбайт = = 7. 32 гбайта = мбайт = = байт...
laralarisa1
05.09.2021 15:37
Найти количество информации которые несёт в себе сообщение размером 200 символов при условии что его мощность алфавита с которого оно написано равно 128 символов...
Linanamik
20.03.2020 23:44
Паскаль. напишите программу. дано трехзначное число, поменять в нем все цифры справа налево, десятки поставить на место сотен, единицы на место десятков, сотни на место...
cross666
20.03.2020 23:44
Файл размером 15 мбайт передается через некоторое соединение за 40 секунд. определите размер файла (в кбайт), который можно передать через другое соединение с утроенной...
wexly
20.03.2020 23:44
Дачник василь вирішив засадити яблуневий сад на пустирі біля своєї дачної ділянки такими популярними сортами: антонівка, симиренка, ґолден, чемпіон. іть йому підрахувати...
malyshkala1234
01.04.2021 16:54
Помгите задать 3-4 вопроса учителю информатики 9 класс те вопросы на которые он не будет знать ответы или ему будет сложно на них ответить...
ivanivanov2007r
01.04.2021 16:54
Файл размером 9 кбайт передаётся через некоторое соединение со скоростью 1 кбит в секунду. определите на сколько секунд быстрее можно передать этот же файл через...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s+=1/i;
Writeln('S=',s)
end.
Пример
n= 10
S=2.92896825396825
//необходимо инициализировать переменную N
double sum = 0;
for(int i=1; i<=N; i++)
sum += 0.1 * i;
//результат в переменной sum