Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
zybi
09.09.2020 04:49 •
Информатика
S=1+1/2+1/3+1/4++1/n pascal. решить с циклом while
Показать ответ
Ответ:
Никита0Скорая0Помощь
08.10.2020 11:36
Program abc;
var
n, i: integer;
s: real;
begin
write('Введите n: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('s= ', s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
TheEnder
06.08.2021 02:58
Эта функция выполняет поиск путем прокрутки сверху вниз в крайнем левом столбце постоянно фиксированной таблицы....
bagaeva02
27.02.2023 20:38
Продолжи алгоритм создания этого изображения в SketchUp: При инструмента прямоугольник создать сидение стула ДАЮ...
Lox2222222288
14.03.2020 02:22
Вычислите частоту дискретизации звука, если разрядность составляет 16 бит, время звучания монофайла 64 секунды, объём файла - 1375 Кбайт....
Makson3D
02.09.2021 00:32
4. Заполните таблицу, указывая соответствующий тип данных для каждого поля. Название столбцаТип данныхНазвание магазинаКоличество товараДата продажиСтоимость товара...
arzanyaevanika
07.12.2021 04:15
УМОЛЯЮ МНЕ ОЧЕНЬ СЕЙЧАС НАДО! даю...
igor1337d
14.12.2021 16:48
Укажите наименьшее целое значение А, при котором выражение (7x + 3y 56) \/ ((x ≤ A) /\ (y A)) истинно для любых целых положительных значений x и y....
maksisenko6451
09.08.2022 15:33
Определите формат ячеек Е4:Е10 Определите формат ячеек B4:B10 ...
okru24057p00ymy
11.03.2021 11:55
ДНІ Уменьшенная или увеличенная копия объекта, передающая его основные(существенные) свойства( : 1)дубликаторигиналобъектПАМАГИТИ...
AbrikosiK11
16.02.2023 07:42
Сакские племена населяли территорию Казахстана и Средней Азии в: A) 1 тысячелетий до н. э.B) 2 тысячелетий до н.э.C) 3 тысячелетий до н.э.D) 4 тысячелетий до н.э.E)...
10149
04.02.2023 10:39
Назовите два режима сортировки...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
n, i: integer;
s: real;
begin
write('Введите n: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('s= ', s);
end.