Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Fomchenko1337
23.04.2020 09:16 •
Информатика
For10. дано целое число n (> 0). найти сумму 1+1/2 +1/+1/n
Показать ответ
Ответ:
nagornaykisa
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 оценок)
Популярные вопросы: Информатика
ayaulymmuratbekova
19.01.2020 01:48
Три основных типа поиска в поисковых системах:...
fogeimof
22.05.2023 08:04
C++ На завод! У Пети есть X граммов краски, а у Васи — Y граммов краски. Одного грамма краски хватает, чтобы покрасить плитку 1×1. На заводе есть неограниченное...
dilya69202
01.08.2020 06:32
Образуй и запиши форму времени для глаголов. Переведи их на русский ЯЗЫК.like - Liked, be-was, play- played, climd- climbed, watch- watched. составьте предложение...
maя
20.07.2020 13:20
3-тапсырма. Топ болып, «Соғысты араб жағы бастаса да, оның алғышарт- тарын жасаған – еврейлер. Бұл соғыс арабтар шыдамының соңғы тамшысы едідеген пікірді құптайтындарыңды...
Nastasia13z
13.08.2022 02:55
Ақын қандай сезімде туған елім арман мұңым енді сені жетелейді жол қалай ...
kokoko29
27.04.2023 10:35
Підкресли члени речення у реченні весна зіткала вчора гобелену лузі-з трав із квітів, з верболозів...
San4ic
25.10.2022 01:57
1)CAB=30° BC=6√3cm AB-? 2)Катеты прямоугольного треугольника имеют 1 см и 3см. Найдите Косинус большего угла3) найти сторону квадрата диагонали, которая=10 см...
Rabika2018
08.01.2021 16:40
2 е 1. Выпишите последнее пред-ложение из 2-го абзаца.Определите его вид по целивысказывания.2. Найдите вопросительноепредложение в 3-м абзаце.3. О чём сообщается...
Никита20071910
16.03.2023 16:33
1)Какая работа совершается идеальным газом при расширении от 2 м³ до 7 м³ и постоянном давлении 100 кПа? 2)Чему равен показатель адиабаты если молярность теплоемкость...
maanna24
16.03.2023 16:33
Будь-ласка іть обчисліть об’єм розчину спирту у волі з масовою часткою спирту 40%( густина розчину 0,72 г/мл), що можна добути з глюкози масою 1 кг...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.