tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Паскаль. программа для вычисления
Паскаль. программа для вычисления суммы ряда чисел s=1/3+1/5+1/7+1/9+1/n
vodovozoffsem
1 24.09.2019 22:10
0
Ответы
anyamaleva97
08.10.2020 16:44
Program ryad;
var
a,i:integer;
b:real;
begin
writeln('Vvelbnt "N"');
readln(a);
if (a mod 2) = 0 then writeln('Chislo "N" dollno nut chetnuym')
else begin
b:=0;
i:=3;
repeat
b:=b+(1/i);
i:=i+2;
until i=a;
writeln('S=',b);
end;
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
жпжрдмдопнулуу
04.10.2019 15:10
Вениамин одноклассникам украшать елку. у него в руках длинный моток гирлянды. вениамина просят отрезать куски гирлянды разной длины. вениамин отрезает кусок заданной длины и отдает...
yfcnz1215
04.10.2019 13:31
3) указатель, ссылка на объект, прямой доступ к объекту i...
ГришаМститель
04.10.2019 15:10
Известен факториал некоторого числа m. необходимо найти исходное число m. формат входных данных вводится целое число m! (1≤m! ≤231−1), являющееся факториалом числа m. формат выходных...
LinaKosarchuk
04.10.2019 13:30
Сделайте надо. запишите число 21 в двоичной системе счисления. запишите число 2 в десятичной системе счисления. . отметьте все числа, которые делятся на 4. 101002 11101002 1101012...
arzanix
04.10.2019 15:10
Информационный объём сообщения из 50 символов алфавита, состоящего из 16 букв, в битах равен...
TyTToŪLLlkoJlbHuK
13.03.2019 22:13
А)напишите программу которая будет высчитывать среднее арифметическое любых 3 введённых числа б)напишите программу по бок-схеме...
DisbeliefPapyrus
13.03.2019 22:13
Для групповых операций с файлами используются маски имен файлов. маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов. также в маске...
16вопрос
13.03.2019 22:15
Разбирается дело васи коли и пети. один из них совершил проступок. в процессе выяснение обстоятельств каждый из них сделал два заявления. вася: я не делал этого.коля не делал этого....
Илья2519
13.03.2019 22:17
По информатике 7 класс. заранее вам . ...
notty12
19.09.2021 13:11
Я проболел и мне нужна в решении задачи по программированию. В прикреплённом фото будет сказанно что надо сделать, мне надо это ниписать на языке , и объясните....
Популярные вопросы
9. Первичная моча образуется в : A) полости капсулы; Б) извитом канальце; B) мочевом...
3
За перший день до бібліотеки завезли 7/15 усіх книжок, а за другий - решту 56...
1
Рядом с ним скакал, заливаясь яростным лаем, Арто. Укажите морфологическую характеристику...
3
Write questions and short answes. Пример: Pierre/play volleyball√ Does Pierre...
1
Зачем нам аккаунты в социальных сетях? Аргументируйте свою точку зрения....
3
Доклад по хореографии на тему : наши танцы ....
2
Хелп ми, все ,что написано синей пастой-черновик ...
1
Из посёлка вышли одновременно два пешехода и пошли в противоположных направлениях...
3
Одна из богатейших нефтью стран, в которой работает на оплачиваемый работах лишь...
3
Составьте Схему природные ресурсы Восточно-Европейской равнины...
3
var
a,i:integer;
b:real;
begin
writeln('Vvelbnt "N"');
readln(a);
if (a mod 2) = 0 then writeln('Chislo "N" dollno nut chetnuym')
else begin
b:=0;
i:=3;
repeat
b:=b+(1/i);
i:=i+2;
until i=a;
writeln('S=',b);
end;
readln;
end.