Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
gerakostya
09.03.2023 04:14 •
Информатика
По информатике! программа паскаль через цикл for(с предусловием) 1.вычислить сумму ряда s=1+1,5+2+2,5+3+3,5++30 (где / - дробь)2.вычислить сумму ряда s= 2+2/1 + 2/2+2/3+2/; 2/i; с точностью e=0,1
Показать ответ
Ответ:
sibuna1
06.10.2020 06:34
1)
var i:integer; s:real;
begin
s:=0;
for i:=1 to round((30-1)/0.5)+1 do
s:=s+i*0.5+0.5;
writeln('s = ',s:6:1);
end.
Результат:
s = 914.5
2)
const e=0.1;
var i:integer; s:real;
begin
i:=1;
s:=2;
while 2/i>e do
begin
s:=s+2/i;
i:=i+1;
end;
writeln('s = ',s:5:2);
end.
Результат:
s = 9.20
0,0
(0 оценок)
Популярные вопросы: Информатика
arisha20summer
08.02.2021 10:13
• Наружный диаметр круга , а внутренний диаметр -, середина круга обозначается точкой. Информатика...
Sergei12121
27.06.2022 22:36
Какой вид массив используется и какие элементы массива будут выведены? А=[31,25,78,12,78,56,45] print(A[5]) print(A[2]) 1)Двумерный,A[5]=78,A[2]=25 2)Одномерный,А[5]=78,А[2]=25...
grimm330066Flippoo
21.12.2020 03:56
Какой объем памяти в килобайтах нужен для хранения изображения размером 320х240 пикселей и использующего 32-цветную палитру?...
liliya134
03.05.2022 00:14
После копирования ячейки А2 в ячейки В2 и А3 в них были занесены формулы =В1+С1 и =А2+В2 соответсвенно .что было записано в ячейке А2...
Durban1984
26.11.2021 21:10
Задан IP адрес компьютера и маска подсети. Определите номер компьютера в этой сети. 10.59.35.44 255.255.255.248...
лена6ада
01.04.2021 00:16
На координатной плоскости отметьте и пронумеруйте точки, координаты которых приведены на рисунке. Соедините точки в заданной последовательности. Помните, первое число - по...
lizaroma224
24.01.2023 14:10
Задание 3. Оценивается в Создайте список уроков (на 5 дней), используя программу sep...
vlad12425
14.02.2022 22:22
Вопрос на фото варианты ответа:6381559...
Malıw
28.06.2020 16:48
сделать тест по информатике...
RUMBANITTA
28.06.2020 16:48
Диана - менеджер кэмпа по программированию, поэтому она решила, что в классах кэмпа не хватает комнатных растений и купила цветы. Диана считает, что так она не только улучшит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i:integer; s:real;
begin
s:=0;
for i:=1 to round((30-1)/0.5)+1 do
s:=s+i*0.5+0.5;
writeln('s = ',s:6:1);
end.
Результат:
s = 914.5
2)
const e=0.1;
var i:integer; s:real;
begin
i:=1;
s:=2;
while 2/i>e do
begin
s:=s+2/i;
i:=i+1;
end;
writeln('s = ',s:5:2);
end.
Результат:
s = 9.20