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


sjsjxhahhshc
24.02.2023 21:32

Для заданного числа n составьте программу вычисления суммы s=1+1/2+1/3+1/4++1/ n, где n – натуральное число.

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
думка3
думка3
25.01.2021 02:46
Какие команды есть в маине...
aibarealmadrid
aibarealmadrid
02.09.2020 11:32
Множество компьютеров, связанных каналами передачи информации и находящихся в пределах одного помещения, здания, называется:А)глобальной компьютерной сетьюБ)информационной...
pav9
pav9
28.01.2022 11:11
Нужно подробно описать действия и решить. Выпускники 11 класса решили создать к празднику последнего звонка слайд шоу со звуковым сопровождением о своей школьной жизни....
Pechenka100500
Pechenka100500
25.08.2021 09:27
У формулы, используя законы алгебры логики: 1)————————- - - a(b v c) v a•b - - 2)a•b•c v a•b•c v a•b•c•d - - - - - - 3)a v d v a•b•c v a•b •c v a•b•c...
Hdhfr
Hdhfr
27.04.2023 07:17
Составить таблицу истинности для функции :((А→В)˄А)↔(¬В)​...
Дашуля110506
Дашуля110506
03.02.2020 03:32
Есть 9 одинаковых на взгляд монет.Известно,что среди них есть одна фальшивая и она легче,чем настоящая.Начертить блок-схему алгоритма выявления фальшивой монеты наименьшим...
nikitabeg
nikitabeg
24.12.2020 06:04
Запишите фрагмент кода, в котором массив a, объявленный как a: array[2..16] of integer;, заполняется по предложенному правилу: элементы массива - случайные числа из...
AnTonDPR
AnTonDPR
13.07.2021 10:26
C/C++. В текстовом файле хранится последовательность целых чисел. Вывести в порядке убывания те числа, которые встречаются в последовательности только один раз. Использовать...
antipingv2004
antipingv2004
10.01.2020 02:05
Выведите на экран все слова из К букв, в которых буква Ы встречается более 1 раза, и подсчитайте их количество. в Питоне...
hellobro55555555555
hellobro55555555555
10.01.2020 02:05
А1. Укажите распределительный закон для дизъюнкции?A & (B v C) = (A & B) v (A & C)A v (B & C) = (A v B) & (A v C)(A & B) & C = A & (B...
Ответ:
sofiakuznetsova2004
21.07.2020 10:49
Var
i, n: integer;
s: real;
begin
write('Введите n: ');
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота