tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Pascal. составить программу,
Pascal. составить программу, в которой с оператора while посчитать сумму ряда тех пор пока член ряда не будет меньше 0.005.
даша20088
2 16.08.2019 07:00
0
Ответы
denkashavcev
04.10.2020 22:28
Const e=0.005;
var i:integer;
a,s:real;
begin
i:=2;
a:=5/(i*i-1);
s:=0;
while a>=e do
begin
s:=s+a;
i:=i+1;
a:=5/(i*i-1);
end;
writeln('i = ',i,' s = ',s);
end.
Результат:
i = 32 s = 3.59122983870968
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
dashagokova20000000
10.09.2019 21:30
Перевести 263 из десятиричной в восьмеричную систему счисления...
murzilk
13.05.2020 12:29
Тест по теме «Табличные вычисления на компьютере»Компьютер работает с числами ва) двоичной системе счисленияб) троичной системе счисленияв) восьмеричной системе счисленияг)...
vitsolodkiy
13.05.2020 12:28
Опишите общую структуру алгоритма метода Greеdy. Какова временная сложность алгоритмов, основанных на методе перебора с возвратом?...
gahakadbobo22
13.05.2020 12:25
Десятичный код латинской буквы o в таблице кодировки символов ASCII равен 111. Что зашифровано с последовательности десятичных 109 111 117 115 101? Пробелы между символами в...
viktoriam1
13.05.2020 12:25
Изучите скрипт и состав е словесный алгоритм. ...
ропчан
13.05.2020 12:25
Ниже записаны две рекурсивные функции (процедуры): F и G. Сколько символов звездочка будет напечатано на экране при выполнении вызова F(20)? Только объясните подробно....
okotletacot
11.12.2021 12:30
14) Автоматическое устройство осуществило перекодировку информационного сообщения на русском языке длиной 40 символов, первоначально записанного в 16битном коде Unicode, в 8-битную...
AntonTimoshin
11.12.2021 12:23
написать сочинение о роботе любом...
киреева2
11.12.2021 12:22
Ряд чисел задан формулой Xi = i/i Первое число ряда Х=275 Рассчитать среднее арифметическое чисел ряда в интервале от N до M построить блок схему *...
Kisa550
16.02.2022 20:04
Які операції з модифiкацiï таблиць можна виконувати? ОЧЕНЬ НУЖНО...
Популярные вопросы
Запишите число 5 в виде дроби со знаменателем 3✨...
3
X+5y=√———— x²+3xнужно найти область ...
2
Ваня сложил из кубиков прямоугольный параллелепипед взял сверху 9 кубиков...
3
Ира и Катя играют в игру, суть которой в вычеркивании чисел. Ира должна сделать...
3
Используя графический метод , решить задачу линейного програмирувания...
2
Для каждого элементарного эволюционного фактора укажи его характеристику....
2
Создать массив натуральных чётных чисел длины N, и вывести сумму элементов....
1
Помаги прочитай тексты Определи и запиши жанры данных текстов...
1
Приведите мотивированные ответы на следущие вопросы с указанием в качестве...
1
Даю . Из сосуда выпустили некоторое количество газа. При этом давление в...
3
var i:integer;
a,s:real;
begin
i:=2;
a:=5/(i*i-1);
s:=0;
while a>=e do
begin
s:=s+a;
i:=i+1;
a:=5/(i*i-1);
end;
writeln('i = ',i,' s = ',s);
end.
Результат:
i = 32 s = 3.59122983870968