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

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

Ответ:

fara32

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 оценок)

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

Рапиро123

21.03.2022 05:48

Сколько типов заливки содержит инструмент «Ведро»?...

Vika15678

06.07.2022 08:33

Выберите один из 4 вариантов ответа: 1) Обращаться к внешним переменным 2) Использовать строковые переменные 3) Использовать значение параметра 4) Изменять значение параметра...

манюня5649

02.10.2022 22:50

Який загальний вигляд команди циклу з лічильником...

odolskij2016

02.02.2023 12:56

Перевести из 3 ной системы в 10 тичную 121211,1022110, 1210120,2220210...

alenapolyakova5

29.07.2022 13:46

Живет в доме в котором 8 квартир вы знаете в каком именно квартиры он живет дома встретил девочку которая знает номер квартиры на после каждого вопроса головой да или нет какое...

kimiKatocom

01.08.2021 06:59

Текст составлен с использованием алфавита мощностью 64 символа и содержит 100 символов. каков информационный объём текста?...

oobostoo

01.08.2021 06:59

Определи, является ли четырёхугольник квадратом. составь алгоритм....

vlada051199

05.03.2023 17:52

ответьте практическая работа no3характеристика положения африки и нанесения на контурную картуего элементов1. размеры, формы материка.подпишите на картосхемах название материка...

Sukhareva1509

14.03.2020 15:57

Создорду орус тилине которгула барамын- келемин- барасын- келесин-...

stepura032

31.07.2020 11:57

Какой объем хлора потребуется для вытеснения йода из 300г 15%-ого раствора йодида алюминия? ...

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

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