Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
Mitaren10n3
16.08.2019 23:20 •
Информатика
Паскаль. исправить программу под эту формулу: 1+(1/(1+2))+(1/(1+2+3))+(1/(1+2+3+4))+(1/(1+2++n)) var s : real; i, n : integer; begin s : = 0; read (n); for i : = 1 to n do s : = s + 1 / i; writeln (s); end.
Показать ответ
Ответ:
0680820429
04.10.2020 23:38
Var
s : real;
i, n, s1: integer;
begin
s := 0;
s1:=0;
readln (n);
for i := 1 to n do
begin
s1:=s1+i;
s := s + 1 / s1;
end;
writeln (s);
end.
Пример:
5
1.66666666666667
0,0
(0 оценок)
Популярные вопросы: Информатика
arinalapshakova
27.06.2019 01:30
Туристы отец мать и два брата два брата близнеца должны переправиться через реку в их распоряжении есть маленькая лодка вмещающая только одного взрослого или двоих детей как организовать...
Диана05005
22.03.2020 21:00
Чуваки у меня проблемы с программой паскальнойuses graphabc;var x,y,d:integer;procedure grib(x,y,d:integer);beginsetbrushcolor(clrandom);ellipse(x+d div 3, y, x+2*d div 3, y+d);setbrushcolor(clrandom);pie(x...
dodmitry
22.03.2020 20:59
Не могли бы подсказать альтернативу Lazarus для питона?...
RasDua
07.05.2020 19:12
В некоторой школе занятия начинаются в 9:00. Продолжительность урока — 45 минут, перемена 15 минут. Определите, когда заканчивается указанный урок...
nemo121212
07.05.2020 19:13
Орк.ість між фрагментами проектів у Scratch 2 та їх назвами.Установіть відповідність між фрагментами про23ЯкщоBILO TOякщотоЯкщотоЯкщоЯКОHakuтоЯКОТакоиеЯКЩОІнакшеБHasesфрагментаДва...
Marismak
07.05.2020 19:13
Почему ты выбрал тему робот? очень...
сел5
07.05.2020 19:13
Алгоритм правописания префикса с- і з- до словва сходи...
ALEXFORBIDDEN
07.05.2020 19:12
Сколько команд расположенно в теле цикла?а)1 б)2 в)3 г)4....
dayanka13
06.07.2019 20:20
Решить 2. в кинотеатре 16 рядов по 32 места в каждом. какое количество информации в битах содержит сообщение о том, что продан один билет в 8-м ряду место № 10? 1) 8 бит 2) 9 бит...
DanaCorgi
06.07.2019 20:20
Мне нужно буду ! ) нужно сообщение на 2 абзаца, на вопрос что требуется для успешного присоединения к компьютеру нового устройства?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
s : real;
i, n, s1: integer;
begin
s := 0;
s1:=0;
readln (n);
for i := 1 to n do
begin
s1:=s1+i;
s := s + 1 / s1;
end;
writeln (s);
end.
Пример:
5
1.66666666666667