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

Среди чисел найти первое, большее числа n

10.01.2012, 18:30. Просмотров 650. Ответов 6
Метки нет (Все метки)

Среди чисел 1, 1 + 1/2 , 1 + 1/2 + 1/3 , ... найти первое, большее числа n
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2012, 18:30
Ответы с готовыми решениями:

Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n.
Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n.

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

Найти первое число в последовательности, большее введенного числа n
Просьба решить 2 задачи. 1. Последовательность Фибоначчи формируется...

Найти в последовательности первое число, большее заданного числа а
Среди последовательности чисел 1, 1+1/2, 1+1/2+1/3, . . . найти первое ,...

Найти в последовательности чисел 1, 1+, 1++,… первое число, большее заданного А
Найти в последовательности чисел 1, 1+1/2, 1+1/2+1/3,… первое число, большее...

6
unick12345
1792 / 1123 / 180
Регистрация: 27.03.2009
Сообщений: 4,275
10.01.2012, 18:41 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

типа того
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var i,j,n:integer;s,s1:real;
begin
readln(n);
i:=2;
while s<n do
begin
s1:=0;
for j:=2 to i do
s1:=s1+1/j;
s:=1+s1;
inc(i);
end;
writeln(i,' ',s);
readln;
end.
1
WebMax 2.0
--\.founder./--
562 / 562 / 392
Регистрация: 20.10.2011
Сообщений: 867
10.01.2012, 18:41 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 uses crt;
 
 var n,x:real;
 i:integer;
 
 begin
    readln(n);
    x:=1;
    while x<=n do
    begin
    inc(i);
    x:=x+1/i;
    end;
    writeln(x);
 end.
1
katushaa
3 / 3 / 0
Регистрация: 10.01.2012
Сообщений: 46
10.01.2012, 18:48 4
Цитата Сообщение от WebMax 2.0 Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 uses crt;
 
 var n,x:real;
 i:integer;
 
 begin
    readln(n);
    x:=1;
    while x<=n do
    begin
    inc(i);
    x:=x+1/i;
    end;
    writeln(x);
 end.
у вас два разных решения кто прав?
0
unick12345
1792 / 1123 / 180
Регистрация: 27.03.2009
Сообщений: 4,275
10.01.2012, 18:50 5
оба. вторая короче
0
katushaa
3 / 3 / 0
Регистрация: 10.01.2012
Сообщений: 46
10.01.2012, 18:52 6
задачка Pascal посмотрите мою пожалуйста
0
mykhina.olga
0 / 0 / 0
Регистрация: 11.01.2012
Сообщений: 4
11.01.2012, 14:46 7
я бы перепроверила
0
11.01.2012, 14:46
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.01.2012, 14:46

Среди последовательности чисел найти первое
а)Среди последовательности чисел найти первое, меньшее заданного числа...

Среди чисел последовательности найти первое, меньшее а
Дано число а (1&lt;а&lt;=1.5). Среди чисел 1+1/2, 1+1/3, ... найти первое,меньше а

Найти первое простое число, большее 100
Найти первое простое число, большее 100. Определить функцию, распознающую...


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

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

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