tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать простенькую программу
Написать простенькую программу в паскаль(цикл с параметром) : вычислить сумму ряда до n количества значений: s=1-1/1+1/3-1/5+
SashaUshanka
3 29.06.2019 14:20
3
Ответы
likonady
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
islamlg
14.09.2019 23:30
Сравните в операционных системах windows и linux: 1) правила именования файлов 2) правила построения полных имён файлов...
Gogi354
30.05.2019 20:40
Примеры неопределяемых понятий в: а); б);...
ВасилийПупкин227
09.04.2021 17:24
Як в Scratch 2 зробити тло з системою координат?...
hurremsultan30
18.03.2021 21:51
ПРОГРАММУ НА ! Алгоритм вычисления значения функции F(n), где n - натуральное число, задан следующими соотношениями: F(n) = 2*n*n + 4*n + 3, при n = 15 F(n) = F(n-1) + n*n...
Unikorn111
18.03.2021 21:50
) Дан фрагмент электронной таблицы. A B C 1 69 = 69/C2 2 4 = A1+A2 = 69*A1 Определи значение, записанное в ячейке B1, если оно скопировано с ячейки A1....
Диана1еее
13.04.2020 14:13
Як виглядатиме команда, що створює вікно сірого кольру?...
G89
13.04.2020 14:13
3.Напишите команды гиперсылок?...
accolic
13.04.2020 14:13
Paint графикалық редакторы және Sketch Up программа құралдарының қызметіндегі программаның ұқсастығы мен айырмашылығын анықтап салыстыр ...
Тогжан11111111
09.12.2020 15:45
Какая программа была использована для создания и редактирования изображения...
maria20061970
09.12.2020 15:46
Выберите элемент форматирования электронной таблицы: А - Цвет границыБ - ИзображенияВ - Объект WordArtГ - Звук...
Популярные вопросы
3. Между какими двумя целыми числами находится каждое из Чисел: 2,3; -2,7;...
2
9. На рисунке представлено гидравлическая машина. Площадь малого поршня...
1
Запишіть формули за валентністю ...
2
Определи склонение имён существительных, портфель(ПОДПИСЬмора(ОременьПЫЛЬкрапиваогоньOяблокоаптекаСморковь...
1
Построить график квадратичной функции...
1
Какое количество теплоы выделится в проводнике за время t=2c, если сила...
1
4. Болін шығару барлық тірі ағзаларға тән қасиет. Жануарлар болып шыгару...
3
Используя метод наименьших квадратов , определить уравнение кривой предложения:...
2
Разобрать по составу слово взять не знаю!...
1
АНГЛ МОВА ШВИДКО всі 12 завдань 2. Its an ancient probably made by an...
3
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.