Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sona272
15.04.2020 09:24 •
Информатика
Pascal abc составить программу для нахождения s дано натуральное число n. найти сумму s=1- 1/5 + 1/9 - 1/+ (n-слагаемых) !
Показать ответ
Ответ:
biolev
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 оценок)
Популярные вопросы: Информатика
гавканье
08.03.2020 20:11
Составить программу (turbo pascal) вычисления величины дохода по вкладу. процентная ставка (в процентах годовых) и время хранения (в днях) во время работы программы. ниже представлен...
Alena200302
08.03.2020 20:11
Написать программу, которая по заданным трем числам определяет, является ли сумма каких-нибудь двух из них положительной....
zadrotovg
24.11.2022 20:02
Дано не менее трех различных натуральных чисел, за которыми следует 0. определить 3 наибольших числа среди них....
KiloMETR1336
20.06.2022 05:17
Тема 3: Технічна база і організація виробництва Доведення доцільності розвитку лізингових послуг Мета: напрацювати навички з оцінки ефективності нововведень на підприємстві. Задача№1...
ashkon
25.08.2022 12:01
Перевести на английский язык: пересекать улицу, загорать на пляже, действительно трудно, надеяться на лучшее, менять деньги, выиграть матч,любимое время года. Дополнить предл. My...
ranki
25.08.2022 12:01
ІВ!Як я ставлюся до розподілу дітей деякими дорослими на «гарних» та «поганих»?(За твором Н.Бічуї «Шпага Славка Беркути») твір...
AlionaNigrevskaya
25.08.2022 12:01
Написати листа-пораду другові, у якого проблеми щодо дружніх стосунків із однокласниками....
ксю882
14.05.2021 15:00
При каком значении a функции y=x^2- 2ax+ a проходиь через точку В(-1; 2)...
Загадака
12.02.2020 22:13
Cheap ,dangerous ,kind, lucky 2 can you change the first two words into adverbs? 3 is the pronunciation of kind like wind (noun) of find (verb)? 4 what prefix do you need to form...
natashaevtushenko
07.09.2021 08:33
1Які нові тенденції розвитку міського розселення виникають під впливом су-часних процесів урбанізації?2 Розкрийте причини і механізм формування агломерацій і мегалополісів.3 Назвіть...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.