Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
алинкажемчуг
13.03.2021 03:01 •
Информатика
Число n натуральное (2/1)+(3/2)+(4/3)++1)/n) составить программу
Ответ:
bestaminova111
27.05.2020 06:50
var
i,n:integer;
s:real;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+(i+1)/i;
write(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
darya1122334455667
03.05.2021 12:42
Сколько времени в минутах затратит школьник на дорогу из школы до стадиона, если длина дороги s, скорость v. формула по которой решать: s=v*t эта программа в бейсик...
leda5
06.11.2020 02:32
Чи правильно записане число 35721 7...
vyaskin2018
16.02.2023 07:43
Отметь материальные модели (выбери верные ответы) а) Кукла б) Карта города в) Макет здания г) Фотография д) Схема е) Рисунок...
Farvazutdinovd
18.10.2020 03:01
Определите значение переменной а после выполнения фрагмента алгоритма...
Alina970azhieva
26.10.2022 07:28
Логическое выражение: 1) (x1 v x2) & (x1 v x2) 2) (x1vx1)v(x2vx2)v(x3vx3)...
НaстяРайская
26.10.2022 07:28
Информатика напечатать таблицу умножения на 7: 1*7=7 2*7=14 *7=63...
haruto42
26.10.2022 07:28
Напишите программу которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы массива с четными значениями...
ivanovapolina86
26.10.2022 07:28
Перечислите режимы представления документов в ms word...
Зте
28.10.2020 06:36
Какой падеж у существительного: запруди...
сюрприз23456789
28.10.2020 06:36
Почему лесника фому – героя произведения и. тургенева – прозвали бирюком?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
i,n:integer;
s:real;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+(i+1)/i;
write(s);
end.