Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
likagluxova
19.02.2020 11:41 •
Информатика
Напишите программу для нахождения суммы ряда 1+1/3+1/5+/15
Ответ:
KiryaRossokha
09.10.2020 10:57
var i, a: integer;
begin a:=0;
i:=1
while i <15 do
begin a:=a+(1/i);
i:=i+2;
end;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
агент007200
25.11.2020 17:04
Определите, что будет напечатано в результате работы следующей программы. В качестве решения заполните таблицу с итерациями. var y, i: integer; begin y :=0; for i :=1 to 3 do...
ellalavrina
09.10.2022 05:33
найти файл для TRINITY ms-tc1000...
asiadancer
25.07.2022 15:23
В программе «:=» обозначает оператор присваивания, знаки «+», «–», «*» и «/» — соответственно операции сложения, вычитания, умножения и деления. Правила выполнения операций...
Vikak005love
27.02.2022 10:54
Заполни пропуски в программе на языке Паскаль. Определить, принадлежит ли точка z отрезку [a;n]. var a,n,z:real; begin write( ?= ); readln(?); write( n= ); readln(n); write(...
vasvas12
21.05.2022 01:24
Является ли условным оператором следующая последовательность символов? ifx 7theny:=x+7elsey:=x−7 не является является...
gabennns
06.01.2020 02:35
Діалог на тему наголос - душа слова....
Depaer
09.05.2021 17:19
8. Визнач перевищення джерела Чисте над поверхнею озера Буре. Розв язання: Відповідь...
Pitbull2015
11.09.2020 15:11
Дано вектори а(6;-9) і b(-2;y). При якому значені у вектори а і b 1) колінеарні 2) перепендикулярні...
mariacold
02.02.2020 08:37
Найдите значение n, если -n=2/5...
agulmira62
20.10.2020 10:16
З ясуйте синтаксичну роль виділених слів у реченні: ТИХО дощ ОСІННІЙ розсипає БІСЕР, сірий ДЕНЬ у людях проростає в сон...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var i, a: integer;
begin a:=0;
i:=1
while i <15 do
begin a:=a+(1/i);
i:=i+2;
end;
writeln(a);
end.