Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
badery346
16.04.2023 13:07 •
Информатика
Вычислите сумму: 1+1/2+1/3+1/4+…+1/10. решите в 2 вариантах - с использованием операторов while и repeat.
Показать ответ
Ответ:
krepkinapolina29
21.05.2020 05:54
Var
i:integer;
s:real;
begin
i:=1; s:=1;
while i<>10 do
begin
i:=i+1;
s:=s+1/i;
end;
writeln('Вычисленно с цикла while: ',s);
i:=1; s:=1;
repeat
i:=i+1;
s:=s+1/i;
until i=10;
writeln('Вычисленно с цикла repeat: ',s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
maksosipow
25.06.2021 04:31
Составьте программу, задающую переменный массив D из 9 целых чисел, заполненный кубами индексов элементов массива и выводящую номер элемента и его значение в строчку...
nikita1424
22.02.2023 21:39
... Выбери видеокарту, которая подойдёт по своим характеристикам. Учти пожелания по мощности, но не забудь уложиться в стоимость. Обрати внимание: сначала надо...
mykmin001
08.11.2020 17:53
Задать класс, в котором задан массив строк. Строки отражают названия составляющих элементов компьютера. Конструктор по умолчанию должен задавать пустую строку....
terribleD
18.01.2020 22:30
Составьте программу, задающую переменный массив С из 12 целых чисел, заполнив его случайными числами в диапазоне [0;25] и выводящую элементы массива в столбик....
CmauJLuk
20.11.2021 07:41
-- 10.Математическая модель — это А.раздел математики Б.описание моделируемого процесса или объекта на языке математики В.Измерение моделируемого объекта Гизображение...
levkim
18.11.2022 05:20
Дано натуральное число n. вычислите сумму и произведение четных натуральных чисел от 1 до n...
vladugan
14.10.2020 18:37
Исполните алгоритм при x=20,y=15.запишите результат...
супербятя
04.10.2021 02:39
1.чему будет равно значение переменной с в результате выполнения серии операторов. запишите решение и ответ: x: =8+2*5; y: =(x mod 10)+24; x: =(y div 10)+3; c:...
Mariyam005
17.02.2022 11:35
Задание 1. TOДЛЯ человекасодержаниевоспринимаемых человеком непосредственно или с специальныхсигналов (сообщения),устройств.информация — информация, отражающая...
Princess1111Yulua
02.12.2022 19:24
1. Яке значення буде записане в клітинку D1 в результаті виконання формули?А) -2 В) 3Б) 4 г) 52. Вкажіть правильні адреси комірок:A) G16B) ФЗБ) 5КГ) 843. Внесення...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
s:real;
begin
i:=1; s:=1;
while i<>10 do
begin
i:=i+1;
s:=s+1/i;
end;
writeln('Вычисленно с цикла while: ',s);
i:=1; s:=1;
repeat
i:=i+1;
s:=s+1/i;
until i=10;
writeln('Вычисленно с цикла repeat: ',s)
end.