Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
197983
25.07.2022 14:28 •
Информатика
Pascal abc составить программу для нахождения s дано натуральное число n. найти сумму s=1- 1/5 + 1/9 - 1/+ (n-слагаемых) !
Показать ответ
Ответ:
nastasiia1989
07.10.2020 11:12
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
Writeln(Range(0,n-1).Select(i->1/(i.IsEven?4*i+1:-(4*i+1))).Sum)
end.
Пример
n= 13
0.876761945581588
для Pascal ABC (проверить негде, проект закрыт в 2004 году)
var
i,n,z:integer;
x,s:real;
begin
Write('n='); Read(n);
s:=0; z:=1;
for i:=0 to n-1 do begin
x:=1/(4*i+1);
s:=s+x*z;
z:=-z
end;
Writeln(s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
fZeo0z
02.12.2021 21:17
По плоскости с нанесенной на ней прямоугольной системой координат движется робот с фонариком. Робот умеет шагать вправо, влево, вверх и вниз, а также включать и выключать...
Kirito505
21.01.2022 11:32
Нужно написать программы используя процедуру треугольник...
arun3
21.01.2022 11:32
ИНФОРМАТИКА МАЛО ВРЕМЕНИ(только 1-ое задание)...
Карапиди
27.03.2023 07:38
Свопросом по по повести толстого детство: замечая недостатки людей своего круга, николенька приходит к мысли, что в первую очередь: 1) нужно исправлять людей 2) нужно...
vazovskiy2013
27.03.2023 07:38
Заполни пропуски и выполни вычисления. 36 км/ч= м /ч 72 000 м/ч : = м/мин 900 м/мин : = м / с 500 м/мин х = м/ч= км/ч 1200 м /мин : = м/с 250 м/с х = м/мин = км/мин...
MariMQ
27.03.2023 07:38
Составить 15 словосочетаний на правописание н и нн в причастиях, отглагольных и отыменных прилагательных. надо....
medinceva24674qq
27.03.2023 07:38
Решите : 1 )тело продвинулось прямолинейно на расстояние 15 м по направлению действия силы 20 н. определите выполненную механическую работу. ) найдите величину силы ,...
Kiri205
27.03.2023 07:38
Complete the questions 1) ann is a student, 2) you aren t english, 3) the pupils can speak english, 4) i am coming with you, 5) tony wasn t at home last night,...
luska059
27.03.2023 07:38
Вкаком ряду перечислены только те органы тела человека, которые относятся к органам опоры и движения? варианты ответы: трахея, легкие, пищевод; рёбра, позвоночник, мышцы;...
Chakachoco
27.03.2023 07:38
Какова масса эфира, полученного при взаимодействии 68 г метанола с уксусной кислотой, если выход продукта составляет 80%?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
Writeln(Range(0,n-1).Select(i->1/(i.IsEven?4*i+1:-(4*i+1))).Sum)
end.
Пример
n= 13
0.876761945581588
для Pascal ABC (проверить негде, проект закрыт в 2004 году)
var
i,n,z:integer;
x,s:real;
begin
Write('n='); Read(n);
s:=0; z:=1;
for i:=0 to n-1 do begin
x:=1/(4*i+1);
s:=s+x*z;
z:=-z
end;
Writeln(s)
end.