Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
volkAlina234
23.02.2020 10:28 •
Информатика
For10. дано целое число n (> 0). найти сумму 1+1/2 +1/+1/n
Показать ответ
Ответ:
albinasaydilova
20.07.2020 12:19
Var n,i:integer;
sum:real;
begin
writeln('Введите N= ');
read(n);
sum:=1;
for i:=1 to n do
sum:=sum+1/i;
writeln('Сумма равна ',sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mar2865
28.10.2021 22:38
Құрметті оқушы,бүгінгі сабағымыз гиперсілтеме.Бейне сабақты қарап шығып берілген сұрақтарға жауап беріңіз. 1. Мәтін редакторы және оны қалай іске қосамыз. 2.Гиперсілтемеге...
lyubsretste
04.10.2021 09:14
Якою є блок-схема циклу з лічильником?...
Violet17
13.11.2021 16:56
Задано натуральне число n. Вивести у рядок задану кількість символів * без проміжків. Вхідні дані:3 Вихідні дані*** На c++...
elyaivanova85
05.12.2020 02:45
Постановка проблемы выбери ключевые шаги, которые включены в этап постановка задачи (проблемы)». верных ответов: 2 разработка программы сбора информации по поставленной проблеме...
Bbqqall
12.02.2021 16:48
То да сё (разное); ни с того ни с сего (неизвестно почему, без каких-либо явных оснований, видимых причин); вставать не с той ноги (быть в мрачном, дурном настроении); не из...
obzoredy
02.05.2020 14:13
Чем отличается ткань с печатным рисунком от пестротканой ткани? ...
DmitriuLOOOO
25.08.2021 12:07
Иртыш До чего ж хороша Поднялась во весь рост Предрассветная тишь!.. И цвела бы в веках... Через степь не спеша Знает он, как земле Катит волны Иртыш. Его воды нужны: А над...
Ане4ка3
05.01.2021 08:34
На районной олимпиаде по математике оказалось шесть побидителей...
pchehov77
02.11.2022 03:29
Какое спряжение у глагола варить?...
регинамаг
23.11.2021 14:48
Точки O(0; 0), A(10; 8), B(8; 2) и C являются вершинами параллелограмма. Найдите координаты точки С....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
sum:real;
begin
writeln('Введите N= ');
read(n);
sum:=1;
for i:=1 to n do
sum:=sum+1/i;
writeln('Сумма равна ',sum);
end.