Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
andreyrodrigo2
15.02.2021 04:05 •
Информатика
Дано натуральное число n. напишите программу ддя вычесленния суммы 1/1 + 1/2 + 1/3+ .. + 1/n
Показать ответ
Ответ:
teXerStas
06.10.2020 21:12
Program n1;
var n,i: integer;
sum: real;
begin
sum:=0;
readln(n);
for i:=1 to n do sum:=sum+1/i;
write(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
cool107
14.07.2020 12:27
Задание 4. Определите основания классификаций: а) чинара, клён, тополь; сосна, туя, можжевельник; б) карто- фель, лук, огурцы, помидоры; яблоки, апельсины, груши, мандарины;...
dina9992
29.05.2022 05:31
В погребе имеется 12 стеллажей. На каждом стеллаже 4 пол(-ки, -ок). Какое количество информации содержит сообщение, что компот находится на верхней полке 4-го стеллажа?...
мороженле
22.02.2021 10:31
Задание 19. Известно, что Ваня выиграл своим первым ходом после неудачного первого хода Пети. Укажите минимальное значение S, когда такая ситуация возможна. Задание 20. Найдите...
iumpovavika85
01.01.2022 22:56
Расставьте скобки в выраженииА and В or not А and not Вв соответствии с порядком вычисления выражения (приоритетом операций). Всего потребуется 5 пар скобок (внешние скобки...
фыыыы1
07.01.2023 09:54
Какие объекты из списка связаны отношением «является разновидностью» с множеством «устройства ввода информации»? клавиатура микрофон VR очки сканер...
крис898
24.01.2022 10:41
ИНФОРМАТИКА 6 СЫНЫП!? ...
Sharedes
11.03.2020 10:00
Сколько пар целых чисел a и b чтобы |a|+|b| 100...
MaIeHku1Ho1OnacHeku
10.01.2022 23:19
Нужно, . с пояснением, если дано логическое выражение не(а и b), где a и b - логические величины. при выполнение какого из следующих высказываний данное выражение будет ложным?...
амина74726
10.01.2022 23:19
Вкаких позиционных системах счисления выполняется равенство 515b+4305=9463. цифры со значением больше 9 представляются строчными латинскими буквами. таким образом, основание...
dgolovenko
17.10.2020 09:41
Знайдіть значення виразу: в=m*(m+1)**(m+n),де m=12,n=5...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,i: integer;
sum: real;
begin
sum:=0;
readln(n);
for i:=1 to n do sum:=sum+1/i;
write(sum);
end.