Найти сумму чисел и значение выражения

@Bloodmoor · Регистрация: 20.04.2015

Студворк — интернет-сервис помощи студентам

1.Найдите сумму чисел 1,1/2,1/3,1/4... больших заданного числа а.
2.Найдите значение выражения $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{i=1}^{50}i/2$

@Puporev · 20.09.2015, 08:51

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a,b,s:real;
    i:integer;
begin
write('a=');//чтобы сумма не была 0, вводить маленьое а, меньше 1
readln(a);
s:=0;
i:=1;
b:=1;
while b>a do
 begin
  s:=s+b;
  i:=i+1;
  b:=1/i;
 end;
write('s=',s:0:5);
end.

2.

Pascal
1
2
3
4
5
6
7
8
var s:real;
    i:integer;
begin
s:=0;
for i:=1 to 50 do
s:=s+i/2;
write('s=',s:0:2);
end.

@Bloodmoor · 20.09.2015, 12:24 **[ТС]**

Зачем в конце s делить на 0 и на 2;5?

@Puporev · 20.09.2015, 12:31

Никто ни на кого не делится, знак деления /, а это форматированный вывод числа, с позиции курсора, с двумя знаками после точки.

@Bloodmoor · 20.09.2015, 13:02 **[ТС]**

Спасибо, вторую задачу понял сразу, а с первой не могу разобраться.
Сейчас расписывал задачу и понял как получается ответ, но не понял как дать ответ на "найдите сумму чисел"
ответ же 2.08 вопрос звучит как, найдите сумму чисел т.е мне нужно в ответе дать 2 числа или я не прав? Я понимаю что паскаль не выдаст мне два числа, но как объяснить ответ?
Не обязательно к прочтению.
1) беру число 0.2
2) проверяется условие b>a
3) s=s+b т.е 0=0+1 s=1 4) i=i+1 т.е 1=1+1 i=2 5) b=1/i т.е 1=1/2 b=0.5
6) проверяется условие b>a
7) s=s+b т.е 1=1+0.5 s=1.5 8) i=i+1 т.е 2=2+1 i=3 9) b=1/i т.е 0.5=1/3 b=0.33
10) проверяется условие b>a
11) s=s+b т.е 1.5=1.5+0.33 s=1.83 12) i=i+1 т.е 3=3+1 i=4 13) b=1/i т.е 0.33=1/4 b=0.25
14) проверяется условие b>a
15) s=s+b т.е 1.83=1.83+0.25 s=2.08 16) i=i+1 т.е 4=4+1 i=5 17) b=1/i т.е 0.25=1/5 b=0.2

@Puporev · 20.09.2015, 14:02

a=0.2;
b=1;
1>0.2;
s:=0+1=1;
b=0.5;
0.5>0.2;
s:=1+0.5=1.5;
b=0.33;
0.33>0.2;
s:=1.5+0.33=1.83;
b=0.25;
0.25>0.2;
s=1.83+0.25=2.08;
b=0.2;
b=a;
ответ s=2.08

Добавлено через 2 минуты

Сообщение от Bloodmoor

мне нужно в ответе дать 2 числа

Pascal
1
write('b=',b:0:5,'  s=',s:0:5);

Добавлено через 16 минут
Или напиши так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var a,b,s:real;
    i:integer;
begin
write('a=');
readln(a);
s:=0;
i:=1;
b:=1;
while b>a do
 begin
  b:=1/i;
  writeln('b=1/',i,'=',b:0:5,' s=',s:0:5);
  if b>a then
   begin
    s:=s+b;
    i:=i+1;
   end;
 end;
writeln('Ответ=',s:0:5);
end.

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@Bloodmoor 0 / 0 / 0 Регистрация: 20.04.2015 Сообщений: 61

	Найти сумму чисел и значение выражения 20.09.2015, 08:04. Показов 3624. Ответов 5 Метки нет (Все метки) 1.Найдите сумму чисел 1,1/2,1/3,1/4... больших заданного числа а. 2.Найдите значение выражения $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{i=1}^{50}i/2$ 0

@Bloodmoor 0 / 0 / 0 Регистрация: 20.04.2015 Сообщений: 61
	20.09.2015, 12:24 [ТС]
	Зачем в конце s делить на 0 и на 2;5? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	20.09.2015, 12:31
	Никто ни на кого не делится, знак деления /, а это форматированный вывод числа, с позиции курсора, с двумя знаками после точки. 0

@Bloodmoor 0 / 0 / 0 Регистрация: 20.04.2015 Сообщений: 61
	20.09.2015, 13:02 [ТС]
	Спасибо, вторую задачу понял сразу, а с первой не могу разобраться. Сейчас расписывал задачу и понял как получается ответ, но не понял как дать ответ на "найдите сумму чисел" ответ же 2.08 вопрос звучит как, найдите сумму чисел т.е мне нужно в ответе дать 2 числа или я не прав? Я понимаю что паскаль не выдаст мне два числа, но как объяснить ответ? Не обязательно к прочтению. 1) беру число 0.2 2) проверяется условие b>a 3) s=s+b т.е 0=0+1 s=1 4) i=i+1 т.е 1=1+1 i=2 5) b=1/i т.е 1=1/2 b=0.5 6) проверяется условие b>a 7) s=s+b т.е 1=1+0.5 s=1.5 8) i=i+1 т.е 2=2+1 i=3 9) b=1/i т.е 0.5=1/3 b=0.33 10) проверяется условие b>a 11) s=s+b т.е 1.5=1.5+0.33 s=1.83 12) i=i+1 т.е 3=3+1 i=4 13) b=1/i т.е 0.33=1/4 b=0.25 14) проверяется условие b>a 15) s=s+b т.е 1.83=1.83+0.25 s=2.08 16) i=i+1 т.е 4=4+1 i=5 17) b=1/i т.е 0.25=1/5 b=0.2 0

Найти сумму чисел и значение выражения

Решение