logo
Войти Регистрация Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
nikitaknss
nikitaknss
27.10.2022 13:52 •  Информатика

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

Показать ответ
Ответ:
с1413а
с1413а
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 оценок)
Популярные вопросы: Информатика
ArtemRussia
ArtemRussia
07.04.2021 14:20
Допустим что вы — узник, которому вдруг предоставлено право выйти на свободу, но только в том случае, если справитесь с таким . перед вами две двери, одна из них ведет на волю,...
Anna1011qpqq
Anna1011qpqq
11.03.2022 04:07
Написать программу,которая последовательность чисел, разбивает на два подмножества с одинаковой суммой. Количество чисел в подмножествах может отличаться. Точное разбиение....
natalia245p025sf
natalia245p025sf
24.10.2021 19:44
Напишите наименьшее целое число x, для которого истинно высказывание не (x =7) и (x 20). решить подробно с развёрнутым ответом. ​...
Пень01
Пень01
13.02.2022 09:48
Построить информационную модель (через microsoft word) в школьном первенстве по фехтованию в четверку лучших вошли девушки: нина, марина, люба и роза. самые горячие болельщики высказали...
arhived1
arhived1
21.07.2021 10:31
Найти : найти сумму минимальных элементов 3х матриц разных порядков. использовать функцию/процедуру#include #include #include #include void vv(int , int a, int b){ srand(time(null));...
xomidov
xomidov
27.09.2022 18:56
Учащиеся в качестве волонтеров участвуют в подготовке сертификатов и дипломов победителей школьной олимпиады...
Karjal
Karjal
27.09.2022 18:56
Var x,y,z: integer begin; read (x); read (y); if x y then write (x, - ,y, = ,z) else write (y, - ,x, = ,z) end. я записываю числа 30 20 компьютер решает как 30-20=0 подскажите как...
Мишаня1721
Мишаня1721
21.08.2022 01:34
1. списать, раскрыть скобки остановиться в (не)решительности, (не)брежность в одежде, в (не)серьёзности, (не)правда, а ложь; (не)взрачный, (не)счастливый, (не) добрый, а злой; далеко...
aika043
aika043
21.08.2022 01:34
Измерение величины состоит в с другой величиной той же природы , (надо вставить 2 слова )...
t4rka
t4rka
21.08.2022 01:34
Какие слова различаются согласными звуками? 1) сын_ сыр,2) кот_ кошка,3) лес_ леса,4) кит_ кот....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота