Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Романman
13.07.2020 20:57 •
Информатика
Написать простенькую программу в паскаль(цикл с параметром) : вычислить сумму ряда до n количества значений: s=1-1/1+1/3-1/5+
Показать ответ
Ответ:
Pleshkova01
23.07.2020 14:06
{s=1-1/1+1/3-1/5+}
var i,n,z:integer;
s: real;
begin
writeln('Введите n');
readln(n);
s:=1; z:=1;
for i:=1 to n-1 do
begin
z:=z*(-1);
s:=s+z/(2*i-1);
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
qwerty1127
21.05.2020 11:58
Перевести в десятичную систему счисления числа а) из двоичной системы счисления: 11011; 1100; 10011; 110101; 1010100....
Kot12321
21.05.2020 11:58
Какой тип алгоритмической структуры необходимо применить если: -последовательность команд должна быть выполнена определённое количество раз -последовательность команд...
frid1999YT
21.02.2023 08:22
Написать программу вычислить значение выражения (1+2)*(1+2+3)*(1+2+3+4)*(1+2+3+4+5) и т.д до 10...
TinoShtrydenberg
21.02.2023 08:22
Для какого из чисел истинно высказывание не(число четное) и (число больше 25)...
Dmitry321123
12.05.2020 09:23
Запишите результат выполнения программы. var p, n: integer; begin p:=1; for n:=5 downto 3 do p:=p*n; writeln(p) end....
Yasenevo1036
26.03.2022 10:45
2.В программе используется одномерный целочисленный массив A с индексами от 0 до 10. Значения элементов равны 0, 7, 1, 3, 2, 14, 5, 9, 11, 0, 7, т.е. A[0]=0, A[1]=7...
gandurska1
27.10.2020 21:22
В сберегательном банке имеется два вида денежных вкладов: с и сложным процентом процент составляет 30% в год, сложный - 25% в год. Первоначальная сумма вклада составляет...
Sl1dan
04.09.2021 19:16
У яких випадках використовуються цикли з умовою? Наведіть приклади....
galejyan2005
07.06.2023 17:54
C++ ЗАДАЧА НА ПРОГРАММИРОВАНИЕ. В мире волшебников серебряный сикль равняется 29 бронзовым кнатам, а 17 сиклей равны 1 золотому галеону. В мире маглов галеон равен...
dariababaeva1
16.04.2022 14:38
Составить программу и блок-схему: Вводится натуральное число N. Написать программу для вычисления произведения N сомножителей: 1*3*5*7...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,n,z:integer;
s: real;
begin
writeln('Введите n');
readln(n);
s:=1; z:=1;
for i:=1 to n-1 do
begin
z:=z*(-1);
s:=s+z/(2*i-1);
end;
writeln(s);
end.