Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 08.10.2013
Сообщений: 47
1

Сколько слагаемых должно быть в сумме, чтобы эта сумма оказалась больше 3.7

08.10.2013, 19:48. Просмотров 1938. Ответов 8
Метки нет (Все метки)


задача 1
сколько слагаемых должно быть в сумме 3 +1 / 4 +1 / 5 + .+1 / n чтобы эта сумма оказалась больше 3.7?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2013, 19:48
Ответы с готовыми решениями:

Найти сколько слагаемых необходимо, чтобы сумма 2+4+6+… оказалась больше 100
Найти сколько слагаемых необходимо, чтобы сумма 2+4+6+… оказалась больше 100.

Сколько слагаемых должно быть в сумме, чтобы сумма оказалась больше 5
помогите пожалуйста написать программу Сколько слагаемых должно быть в сумме 1+1/2+1/3+...+1/n ,...

Сколько слагаемых должно быть в сумме, чтобы эта сумма оказалась больше 5
Сколько слагаемых должно быть в сумме 1+1/2+1/3+1/4+...+1/n, чтобы эта сумма оказалась больше 5 ?...

Определить, сколько слагаемых должно быть в сумме, чтобы сумма оказалась больше или равной N
Доброго времени суток. Задача: Сколько слагаемых должно быть в сумме 1 + 1/2 + 1/3 + …+ 1/k,...

8
902 / 750 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
08.10.2013, 20:08 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  i: integer;
  S: real;
  
begin
  S := 0;
  i := 3;
  while S < 0.7 do
  begin
    inc(i);
    S += 1 / i
  end;
  write('Ответ: ', i - 2)
end.
0
0 / 0 / 0
Регистрация: 08.10.2013
Сообщений: 47
08.10.2013, 20:15  [ТС] 3
Показало что ошибок нет. Но програма не выполняется...
0
902 / 750 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
08.10.2013, 20:20 4
Цитата Сообщение от TheCollapse Посмотреть сообщение
Показало что ошибок нет. Но програма не выполняется...
Как не выполняется? Тебе должно было выдасть результат 5.
0
0 / 0 / 0
Регистрация: 08.10.2013
Сообщений: 47
08.10.2013, 20:23  [ТС] 5
ум нет у меня просто "стоит "



пишет программа выполняется ноооооо результа нет.....
0
902 / 750 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
08.10.2013, 20:27 6
Попробуй так, может тебе надо модуль подключить:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
  i: integer;
  S: real;
  
begin
  clrscr;
  S := 0;
  i := 3;
  while S < 0.7 do
  begin
    inc(i);
    S += 1 / i
  end;
  writeln('Ответ: ', i - 2)
end.
0
0 / 0 / 0
Регистрация: 08.10.2013
Сообщений: 47
08.10.2013, 20:29  [ТС] 7
нет(((( терь открыв crt и все, результата как не было так и нет.
0
902 / 750 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
08.10.2013, 20:33 8
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Попробуй так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  i: integer;
  S: real;
  
begin
  S := 0;
  i := 3;
  while S < 0.7 do
  begin
    i := i + 1;
    S := S + 1 / i
  end;
  write('Ответ: ', i - 2)
end.
2
0 / 0 / 0
Регистрация: 08.10.2013
Сообщений: 47
08.10.2013, 21:18  [ТС] 9
дааааа, большое спасибо с меня +))

Добавлено через 43 минуты
erl27, включи скайп
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.10.2013, 21:18

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

сколько слагаемых должно быть в сумме 1+1/2+1/3+.+1/N, чтобы сумма оказалась больше L. L вводится пользователем , L принадлежит промежутку [1;2]
Cколько слагаемых должно быть в сумме 1+1/2+1/3+...+1/N, чтобы сумма оказалась больше L. L вводится...

Найти, сколько слагаемых необходимо, чтобы сумма 2+4+6+… оказалась больше 100
Найти, сколько слагаемых необходимо, чтобы сумма 2+4+6+… оказалась больше 100.

Найти сколько слагаемых необходимо, чтобы сумма ряда оказалась больше 100
сколько слагаемых необходимо, чтобы сумма ряда 2,4,6,8...n оказалась больше 100

Сколько слагаемых должно быть в сумме 1 + 1/2 + 1/3 + …+
Сколько слагаемых должно быть в сумме 1 + 1/2 + 1/3 + …+ 1/k, чтобы сумма оказалась больше или...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.