Войти Регистрация Спроси ai-bota

Вычислить сумму ряда чисел 1 + 1/2 + 1/3 + … + 1/n

Показать ответ

Ответ:

сашенька062

08.10.2020 12:29

Var
i,n:integer;
s:real;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do
s:=s+(1/i);
writeln(s);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

Кристинаголубь

29.04.2020 13:43

C# WINDOWS FORM Для масиву з n елементів визначити, скільки його елементів більше, ніж сума елементів його першої половини. Суму вивести. Для массива из n элементов определить, сколько...

lalalol1

18.09.2021 21:05

УМОЛЯЮ Особенности GIF , кратко. ...

ЧеТКиЙВсЕУмиЙ

15.01.2020 14:52

Вопрос для людей знающих как работать с терминалом Линукса В каталоге /var/log/installer найдите файлы, принадлежащие root группе, и выпишите подробную информацию для каждого, используя...

hoivamvrot

05.04.2020 00:16

по информатике IP-адрес узла равен 231.32.255.131, а маска равна 255.255.240.0. Диапазон адресов при этом составит ... a) 255.255.255.0 ... 255. 255.255.255 c) 231.32.255.131 ... 231.32.255.255...

070520031

09.04.2020 22:54

Вдвумерном массиве нечетные элементы увеличить на 10,а остальные уменьшить на 10(паскаль)...

аня2940

15.05.2020 06:54

Условие задания: Восстанови хронологическую последовательность. Изобретение фотографии дения Первая запись звука с фонографа OOOD Изобретение магнитофона е работы Появление первых...

мама1036

29.09.2020 19:22

уу меня щас моя по информатике ...

Эээээээ11

19.11.2022 08:09

ответить Создать пары добавив с английским термином русский аналаг CPU- RAM- HDD- Video Card- Sound Card-...

EvgenijKalashni

04.02.2020 19:49

Написать программы на языке Паскаль (задания №2,3)...

dimasgym

04.02.2020 19:49

Дано два числа. Вывести наибольшее из них....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку