Услуги
Заказы
Эксперты
Магазин
Портфолио
Журнал
Справочник
FAQ
Контакты
Услуги
Заказы
Эксперты
Магазин
Портфолио
Журнал
Справочник
Вопросы
FAQ
Контакты
Авторизация
Ничего не найдено
Найти
Написать программу для нахождения суммы 1/1+1/2+1/3+....1/n
Предыдущий
вопрос
Следующий
вопрос
Главная
Вопросы и ответы
Вопросы и ответы по информатике
Написать программу д...
Ответить
Получить ответ за 25 ₽
Задать свой вопрос
eva
17 Мар 2020 в 19:41
105
+1
0
Ответы
1
PetyaGavrikov
PetyaGavrikov
var n,i: integer; s: real;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln(s);
end.
Ответить
17 Мар 2020 в 20:07
Спасибо
Похожие вопросы
Обсудите значение и пределы формального метода доказательства корректности программы: какие классы ошибок…
eva
Информатика
7 Сен
1
Ответить
Кейс по языкам программирования: даны два микросервиса — один на Go, другой на Python — которые обмениваются…
eva
Информатика
7 Сен
1
Ответить
Сравните три подхода к представлению данных графов в памяти (список смежности, матрица смежности, CSR/CSC)…
eva
Информатика
7 Сен
1
Ответить
Показать ещё
Другие вопросы
eva
Показать ещё
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Тип работы
Задача
Контрольная
Курсовая
Лабораторная
Дипломная
Реферат
Практика
Тест
Чертеж
Сочинение
Эссе
Перевод
Диссертация
Бизнес-план
Презентация
Билеты
Статья
Доклад
Онлайн-помощь
Рецензия
Монография
ВКР
РГР
Маркетинговое исследование
Автореферат
Аннотация
НИР
Докторская диссертация
Магистерская диссертация
Кандидатская диссертация
ВАК
Scopus
РИНЦ
Шпаргалка
Дистанционная задача
Творческая работа
Разместить заказ
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Задача
Контрольная работа
Курсовая работа
Лабораторная работа
Дипломная работа
Реферат
Отчет по практике
Тест
Чертеж
Сочинение
Эссе
Перевод
Диссертация
Бизнес-план
Презентация
Ответы на билеты
Статья
Доклад
Онлайн-помощь
Рецензия
Монография
ВКР
РГР
Маркетинговое исследование
Автореферат
Аннотация
НИР
Докторская диссертация
Магистерская диссертация
Кандидатская диссертация
ВАК
Scopus
РИНЦ
Шпаргалка
Дистанционная задача
Творческая работа
Заказать
Прямой эфир
var n,i: integer; s: real;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln(s);
end.